Переписать программу с Pascal

program KCC;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  i,j,min,n:integer;
  L:integer;
  nomerJ:integer;
  kol:integer;
  vvod:Char;
  Mn:Set of 1..7;         {ЗДАЕМ ВЕРШИНЫ ГРАФА }
  Gr:array[1..7,1..7] of Integer=((0,6,5,0,10,9,0),
                                 (6,0,4,5,3,0,6),
                                 (5,4,0,6,7,0,8),
                                 (0,5,6,0,3,6,0),
                                 (10,3,7,3,0,8,7),
                                 (9,0,0,6,8,0,5),
                                 (0,6,8,0,7,5,0));   {КОНТРОЛЬНЫЙ ПРИМЕР }
 
begin
L:=0;
kol:=1 ;
while (vvod<>'n') or (vvod<>'n') do begin
write('vvesti novu Graf? (Y/N) ');
readln(vvod);
case vvod of
  'N','n': n:=7;
  'Y','y': begin
  {СОЗДАЕМ НОВЫЙ ГРАФ}
write('Vvedite razmernost grafa   : ');
readln(n);
writeln;
for i:=1 to n do
begin
for j:=1 to n do read(Gr[i,j]);
writeln;
end;
end;
else writeln('error!!! pleas repeat input');
end;
end;
Mn:=[1];                       { ДОБАВЛЯЕМ НОВУЮ ВЕРШИНУ}
repeat
 min:=1000;
 for i:=1 to n do              {ЦИКЛ НАХОЖДЕНИЯ МИНИМАЛЬНОГО 
 for j:=1 to n do   ВЕСА РЕБРА}
 begin
 if i in Mn then               {ПРОВЕРКА ВХОЖДЕНИЯ РЕБРА}  
    В МНОЖЕСТВО}
 if (Gr[i,j] < min) and (Gr[i,j]<>0) then   
 begin
 min:=Gr[i,j];
 nomerJ:=j;
 end
 else continue;
 end;
 write('min=',min);
 L:= L + min;                     {УВЕЛИЧИВАЕМ L НА ВЕС РЕБРА} 
{ ДОБАВЛЯЕМ ВЕРШИНУ ГРАФА В МНОЖЕСТВО}
 include(Mn,nomerJ);               
 for i:=1 to n do
 if i in Mn then begin
 Gr[i,nomerJ]:=0;
 Gr[nomerJ,i]:=0;
 end;
 kol:=kol+1;
 until n=kol; 
 writeln;
 writeln('L = ',L);
 readln;
end.