Курсовая работа по графике в Паскале

uses Wingraph,Wincrt,Sysutils,Math;
const CellWidth=50;
      CellHeight=20;
type arr=array of array of integer;
 
procedure St;
var
  gd,gm:smallint;
begin
  gd:=detect;
  gm:=m640x480;
  initgraph(gd,gm,'');
end;
 
function InputBox(caption,defvalue:string;px,py,pw,ph:integer):string;
var
  p:pointer;
  s:longint;
  c:char;
  z:string;
begin
  z:=defvalue;
  //сохраняем область экрана
  s:=ImageSize(px,py,px+pw,py+ph);
  GetMem(p,s);
  GetImage(px,py,px+pw,py+ph,p^);
  repeat
    Setcolor(black);
    Setfillstyle(SolidFill,Gray);
    bar(px,py,px+pw,py+ph);
    SetTextStyle(TimesNewRomanFont,0,14);
    OutTextXY(px+5,py+ph div 4,caption+z);
    c:=readkey;
    case c of
      #32..#255:z:=z+c;
      #27:begin z:=defvalue;c:=#13;end;
      #8:delete(z,length(z),1);
    end;
  until c=#13;
  putimage(px,py,p^,NormalPut);
  freemem(p);
  InputBox:=z;
end;
 
procedure DrawCell(cx,cy:integer;TextColor,BackColor:longint;Capt:string);
begin
  setcolor(TextColor);
  Setfillstyle(SolidFill,BackColor);
  bar(cx*CellWidth+2,cy*CellHeight+2,(cx+1)*CellWidth-2,(cy+1)*CellHeight-2);
  OutTextXY(cx*CellWidth+5,cy*CellHeight+CellHeight div 3,Capt);
end;
 
procedure DrawGrid(n,m:integer;var a:arr);
var
  i,j,mx,my:integer;
  s:string;
begin
  mx:=Min(GetMaxX div CellWidth-1,n);
  my:=Min(GetMaxY div CellHeight-1,m);
  for i:=0 to mx-1 do begin
    line(i*CellWidth,1,i*CellWidth,my*CellHeight);
    for j:=0 to my-1 do begin
      s:=inttostr(a[j,i]);
      DrawCell(i,j,White,Blue,s);
    end;
  end;
    for j:=1 to my do
    line(1,j*CellHeight,n*CellWidth,j*CellHeight);
  end;
 
var
  i,j,n,t:integer;
  a:arr;
  f:string;
  cx,cy:integer;
  c:char;
 
begin
  St;
  randomize;
  for i:=1 to 5000 do begin
    putpixel(random(GetMaxX),random(GetMaxY),random(65536));
  end;
  repeat
    n:=StrtoInt(InputBox('N=','10',1,1,100,20));
  until (n>1);
  setlength(a,n,n);
  repeat
    f:=InputBox('1-fill table by hands;2-automatic fill table:','2',1,1,GetMaxX div 2,30);
  until (f='1') or (f='2');
  if f='2' then
    for i:=0 to n-1 do
      for j:=0 to n-1 do
        a[i,j]:=random(100);
     DrawGrid(n,n,a);
 
 
  repeat
     DrawCell(cx,cy,Yellow,Gray,inttostr(a[cy,cx]));
     c:=readkey;
     if c=#27 then break;
     if c=#13 then
       a[cy,cx]:=strtoint(inputbox('',inttostr(a[cy,cx]),cx*CellWidth,cy*CellHeight,CellWidth,CellHeight));
     if c=#0 then begin
       DrawCell(cx,cy,White,Blue,inttostr(a[cy,cx]));
       case ord(readkey) of
        72:cy:=cy-ord(cy>0);
        80:cy:=cy+ord(cy<n-1);
        77:cx:=cx+ord(cx<n-1);
        75:cx:=cx-ord(cx>0);
       end;
     end;
  until false;
// Move 1 string to end
  Drawgrid(n,n,a);
  repeat
  for i:=0 to n-2 do
    for j:=0 to n-1 do begin
      t:=a[i,j];a[i,j]:=a[i+1,j];a[i+1,j]:=t;
      DrawCell(j,i,White,Blue,inttostr(a[i,j]));
      DrawCell(j,i+1,White,Blue,inttostr(a[i+1,j]));
      if keypressed then break;
      delay(100);
   end;
   if keypressed then break;
   until false;
  closegraph;
  end.