АСОИ, Delphi, много вариантов 2 сем / 2стеки / наиб.часто встреч.число+сколько раз / Unit2

unit Unit2;

interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Dialogs, StdCtrls;

type
Tinf=record
k:integer;
s:integer;
kol:integer;
end;
psel=^sel;
sel=record
inf:Tinf;
A:psel;
end;
TList=class(tObject)
sp1,sp:psel;
constructor Create;
procedure Addl(inf:Tinf);
procedure Print;
end;

var

nn,m,i,j:integer;
a:array[1..10]of byte;

implementation
constructor TList.Create;
begin
Inherited Create;
sp1:=nil;
end;

procedure TList.Addl(inf:Tinf);
begin
if sp1=nil then begin
new(sp1);
sp1^.A:=nil;
sp1^.inf:=inf;
end
else begin
new(sp);
sp^.A:=sp1;
sp^.inf:=inf;
sp1:=sp;
end;
end;

Procedure Tlist.Print;
begin
for j:=1 to 10 do begin
a[j]:=0;
end;
sp:=sp1;
While sp <> Nil do
begin
for i:=1 to m do begin
for j:=1 to 10 do begin
if sp^.inf.k=j then begin
a[j]:=a[j]+1;
end
else begin
sp:=sp^.A;
end;
end;
end;
//Writeln(sp^.Inf);

end;
end;


end.