Переделать под графический режим

Uses crt, graph;
Type
T_zap=Record
n_r: byte;
k_r: byte;
end;
T_adress=^T_elem;
T_elem=Record
info:T_zap;
adress: T_adress;
end;
Var first: T_adress; n,m,min:byte;
pet:array[1..50] of byte;
masv:array[1..50] of byte;
matr:array[1..50,1..100] of byte;
mas:array[1..100] of byte;
k:char;
Procedure Vvod_matr_i_ee_vyvod;
Var f:text; file_name:string;
i,j:byte;
Begin
writeln('Vvedite imya faila: ');
readln(file_name);
assign(f,file_name);
reset(f);
n:=0; m:=0; i:=0;
while not Eof(f) do
begin
inc(i); j:=0;
while not Eoln(f) do
begin
inc(j);
read(f,matr[i,j]);
end;
readln(f);
n:=i; m:=j;
end;
writeln ('Chislo strok = ',n,'; Chislo stolbcov = ',m);
close(f);
writeln('Vershina\Rebro');
write('  ');
for j:=1 to m do
write(' ',j:2);
writeln;
for i:=1 to n do
begin
write(i,' ');
for j:=1 to m do
write (matr[i,j]:3);
writeln;
end;
End;
Procedure Formir_spiska_reber_grafa_i_ego_vyvod;
             Var p_u,t_u:T_adress; i,j,key,k:byte;
             Begin
                  writeln('Spisok reber grafa');
                  New(p_u); first:=p_u; key:=0;
                  for i:=1 to m do
                      if matr[i,1]=1 then
                         begin
                              p_u^.info.n_r:=i;
                              break;
                         end;
                  for j:=i+1 to n do
                      if matr[j,1]=1 then
                         begin
                              p_u^.info.k_r:=j;
                              key:=1;
                              break;
                         end;
                  if key=0 then
                     p_u^.info.k_r:=p_u^.info.n_r;
                  for j:=2 to m do
                      begin key:=0;
                            for i:=1 to m do
                                if matr[i,j]=1 then
                                   begin
                                        new(t_u);
                                        t_u^.info.n_r:=i;
                                        break;
                                   end;
                            for k:=i+1 to m do
                               if matr[k,j]=1 then
                                  begin
                                       key:=1;
                                       t_u^.info.k_r:=k;
                                       break;
                                  end;
                            if key=0 then
                               t_u^.info.k_r:=t_u^.info.n_r;
                               p_u^.adress:=t_u;
                               p_u:=t_u;
                      end;
                  p_u^.adress:=nil;
                  t_u:=first;
                  while t_u<>nil do
                        begin
                             writeln(t_u^.info.n_r,'  ',t_u^.info.k_r);
                             t_u:=t_u^.adress;
                        end;
             End;
Procedure Form_spis_vershin;
 Var t_u,p_u:T_adress;  i:byte;
       Begin
       for i:=1 to n do
       begin
       pet[i]:=0;
       end;
       t_u:=first;
       begin
       while t_u<>nil do
             begin
             inc(mas[t_u^.info.n_r]);
             inc(mas[t_u^.info.k_r]);
             if(t_u^.info.n_r=t_u^.info.k_r) then
             inc(pet[t_u^.info.n_r]);
             t_u:=t_u^.adress;
             end;
             end;      writeln('Stepeni');
          for i:=1 to n do
              writeln(i,'-',mas[i],'-',pet[i])
       end;
 
Procedure Sort;
          var  j,i:byte;
              buf1,buf2,buf3: byte; key:boolean;
              Begin
              for i:=1 to n do
               masv[i]:=i;
 
               for i:=1 to n-1 do
               begin
               repeat
               key:=false;
                for j:=1 to n-1 do
                 if mas[j]>mas[j+1] then
                  begin
                  buf1:=mas[j];
                  mas[j]:=mas[j+1];
                  mas[j+1]:=buf1;
                  buf2:=masv[j];
                  masv[j]:=masv[j+1];
                  masv[j+1]:=buf2;
                  buf3:=pet[j];
                  pet[j]:=pet[j+1];
                  pet[j+1]:=buf3;
                  key:=true;
                  end;
               until key=false;
 
 
               end;
 
                  writeln('massiv');
                  for i:=1 to n do
                       write(masv[i]);  writeln;
 
                        for i:=1 to n do
                       write(mas[i]);  writeln;
 
                                       for i:=1 to n do
                                       write(pet[i]); writeln;
 
                min:=mas[n-(n-1)];
                writeln(min);
 
                           end;
 
Procedure Udalenie_vershin_s_min_stepen_i_petlyami;
            Var  key:boolean; p_u,t_u:T_adress; i,k:byte;
            Begin
 
                  t_u:=first;
                  while t_u<>nil do
                        begin
                             for i:=1 to n do
                                 if (pet[i]>0)  and
                                 (masv[i]=t_u^.info.n_r) and (mas[i]=min) then
                                    begin
                                         if t_u=first then
                                            first:=t_u^.adress
                                         else
                                             begin
                                                   p_u^.adress:=t_u^.adress;
                                                   p_u:=t_u;
                                             end;
                                    end;
                             p_u:=t_u;
                             t_u:=p_u^.adress;
                        end;
                  writeln('Spisok reber grafa');
                  t_u:=first;
                   while t_u<>nil do
                        begin
                             with t_u^.info do
                                  writeln(n_r,' - ',k_r);
                             p_u:=t_u;
                             t_u:=p_u^.adress;
                        end;
                  readkey;
            End;
 
Procedure Init_Graph_Mode;
        Var
            Gr_Driver,i, Gr_Mode, Error_Code: Integer;
      xmax, ymax:word; sc,scc,sx,sy:string; c,cc:word;
      a:real;
      x,y:array[1..50] of real;
 
    Begin
    Gr_driver:= Detect; {Автоопределение драйвера и режима}
InitGraph(Gr_Driver,  Gr_mode,  '');  {Инициализация графического
     режима - файл с дравером должен располагаться в текущем каталоге}
    Error_Code:= GraphResult;
    If      Error_Code <> 0 then
            Begin
            Writeln(' Сообщение об ошибке:',GraphErrorMsg(Error_Code));
            Halt;   { Выход из программы}
            End;
 
    End;
 
procedure Help;
var i:integer;
begin
gotoxy(3,1); write('1 - Vvod matricy i ee vivod');
gotoxy(3,2); write('2 - Formirovanie spiska reber i ego vivod');
gotoxy(3,3); write('3 - Formirovanie spiska vershin');
gotoxy(3,4); write('4 - Sortirovka');
gotoxy(3,5); write('5 - Udalenie vershin s min stepenu i petlyami');
gotoxy(3,6); write('6 - risovanie grafa');
for i:=1 to 7 do begin gotoxy(1,i); write(chr(186)); gotoxy(70,i); write(chr(186)); end;
for i:=1 to 69 do begin gotoxy(i,7); write(chr(205)); end;
gotoxy(1,7); write(chr(200));
gotoxy(70,7); write(chr(188));
gotoxy(1,1);
end;
 
 
 
 
Begin
clrscr;
Help;
textcolor(15);
window(1,5,80,25);
begin
writeln('Vibirite deystvie:');
k:=readkey;
case k of
'1':Vvod_matr_i_ee_vyvod;
'2':Formir_spiska_reber_grafa_i_ego_vyvod;
'3':Form_spis_vershin;
'4':Sort;
'5':Udalenie_vershin_s_min_stepen_i_petlyami;
'6':readkey;
end;
repeat until keypressed;
End;
readkey;
end.