Динамическая Структура.Часть2

uses
   GraphABC;
 
type
   pselem = ^selem;
   plelem = ^lelem;
   pkelem = ^kelem;
   selem = record
      data: integer;
      next: pselem;
      down: plelem;
   end;
   
   lelem = record
      data: char;
      next: pselem;
   end;
 
 kelem = record
     data: char;
     next: pselem;
     end;
 
var
   first, last: pselem;
   n: string;
   m: integer;
 
procedure Add(q: integer; f: char);
var
   pse: pselem;
   ple: plelem;
   pkl: pkelem;
   
begin
   New(pse);
   New(ple);
   New(pkl);
    
   pse^.data := q;
   pse^.down := ple;
   pse^.next := Nil;
   
   ple^.data := f;
   ple^.next := pse;
   ple^.next := Nil;
   
   pkl^.data := f;
   pkl^.next := nil;
   
   if last = nil then
   
   begin
      last := pse;
      first := pse;
   end
   
   else
   begin
      last^.next := pse;
      last := pse;
   end;
end;
 
procedure Show;
var
   x, y: integer;
   k: pselem;
begin
   x := 10;
   y := 10;
   k := first;
   
   while k <> nil do
   begin
      if inttostr(k^.data) = n then
         pen.Color := clblue;
      DrawRectangle(x, y, x + 50, y + 50);
      DrawRectangle(x + 70, y + 70, x + 120, y + 120);
      DrawRectangle(x + 150, y + 70, x + 200, y + 120);
      
      textout(x + 20, y + 20, IntToStr(k^.data));
      textout(x + 90, y + 90, k^.down^.data);
      textout(x + 170, y + 90, k^.down^.data);
      
      pen.Color := clblack;
      
      line(x + 50, y + 20, x + 250, y + 20); 
      line(x + 45, y + 40, x + 75, y + 70);
      line(x + 120, y + 100, x + 150, y + 100);
      line(x + 250, y + 45, x + 195, y + 80);
      
      k := k^.next;
      
      if k = nil then
         
         textout(x + 250, y, '    ');
      
      x := x + 250;
      
   end;
   
end;
 
procedure Shag;
begin
   Add(random(5), chr(random(80, 90)));
   n := IntToStr(m);
   Show;
end;
 
procedure keydown(key: integer);
begin
   case key of
      VK_F1: Shag;
   end;
end;
 
begin
   writeln('введите искомое значение - до 5');
   readln(m);
   window.Clear;
   onkeydown := keydown;
end.