АСОИ, Delphi, много вариантов 2 сем / 2стеки / !подозрительное / Лаба6 / Unit3

unit Unit3;

interface

uses StdCtrls, SysUtils;

type
Psel=^sel;
sel=Record
b:string;
a,a1:Psel;
end;

Tspis1=class(Tobject)
c:Psel;
n:integer;
constructor create;
procedure sdvig;
procedure print(Memo:Tmemo);
end;

implementation

constructor Tspis1.create;
var c1,c3:Psel;
s:array[1..27]of string;
i:integer;
begin
inherited create;
s[1]:='//Алгоритм нахождения НОД и НОК 2 чисел';
s[2]:='';
s[3]:='program Project;';
s[4]:='';
s[5]:='uses SysUtils;';
s[6]:='';
s[7]:='var a,b,nok,nod:integer;';
s[8]:='';
s[9]:='procedure noknod(a,b,nok,nod:integer);';
s[10]:=' begin';
s[11]:=' while a<>b do';
s[12]:=' if a>b then';
s[13]:=' a:=a-b';
s[14]:=' else';
s[15]:=' b:=b-a;';
s[16]:=' nod:=a;';
s[17]:=' nok:=round(a*b/nod);';
s[18]:='end;';
s[19]:='';
s[20]:='begin';
s[21]:=' read(a,b);';
s[22]:=' noknod(a,b,nok,nod);';
s[23]:=' writeln(nok);';
s[24]:=' writeln(nod);';
s[25]:=' readln;';
s[26]:='end.';
s[27]:='';
new(c);c3:=c;
c.b:=s[1];
for i:=2 to 27 do
begin
new(c1);
c1.b:=s[i];
c.a:=c1;c:=c.a;
end;
c.a:=c3;
c:=c3;
end;

procedure Tspis1.print(memo:TMemo);
var c1:Psel;i:Integer;
begin
Memo.Clear;
c1:=c;
for i:=1 to 27 do
begin
memo.Lines.Add(c1.b);
c1:=c1.a;
end;
end;

procedure Tspis1.sdvig;
begin
c:=c.a;
end;

end.