Перевести текст программы из DELPHI в PASCAL

[анна2709]

program floyd;
uses
SysUtils;
const nn=10; {количество городов}
const town:array[1..nn,1..2] of Integer = ((50, 40),(50, 60),(60, 60),
(70, 50),(70, 40),(-70, 50),(-40, 30),(20, 10),(40, 20),(-28, -21));
const road:array [1..9,1..2] of Integer = ((1, 2),(2, 3),(3, 4),(4, 5),(5, 1),
(1, 3), (1, 4), (6, 7), (8, 9));
type
Graph = array[1..nn,1..nn] of Integer ;
var i,j,k:integer;
c: graph; {матрица расстояний между городами}
s: Graph; {матрица кратчайших путей a}
w: Graph; {матрица маршрутов p}

begin
{ TODO -oUser -cConsole Main : Insert code here }

for i:=1 to nn do
Writeln(town[i,1],' ',town[i,2]);
for i:=1 to 9 do
Writeln(road[i,1],' ',road[i,2]);
{заполняем матрицу расстояний между городами}
for i:=1 to nn do
for j:=1 to nn do
begin
if i=j then
begin
c[i,j]:=0;
w[i,j]:=0;
end
else
begin
c[i,j]:=round(Sqrt(Sqr(town[i,1]-town[j,1])+Sqr(town[i,2]-town[j,2])));
w[i,j]:=j
end;
s[i,j]:=c[i,j];

end;
for i:=1 to 9 do
begin
w[road[i,1],road[i,2]]:=1;
w[road[i,2],road[i,1]]:=1;
end;
writeln('**************');
for i:=1 to nn do
begin
Writeln;
for j:=1 to nn do
write(w[i,j],' ')
end;
Readln;

for i:=1 to nn do
for j:=1 to nn do
for k:=1 to nn do
if (i<>k) and (j<>k) then
if (s[i,k]+s[k,j] < s[i,j]) then
begin
s[i,j]:=s[i,k]+s[k,j];
w[i,j]:=k;
end;
for i:=1 to nn do
begin
Writeln;
for j:=1 to nn do
write(c[i,j],' ')
end;
writeln;
for i:=1 to nn do
begin
Writeln;
for j:=1 to nn do
write(s[i,j],' ')
end;
writeln;
for i:=1 to nn do
begin
Writeln;
for j:=1 to nn do
write(w[i,j],' ')
end;
Readln;
end.

[AlDelta]

Где ваши попытки перевести?(Закрою тему)
Что конкретно не получается?

[Serge_Bliznykov]

просто удалите вторую и третью строчки (отмечено красным, что надо удалить!):

program floyd;
uses
SysUtils;

и всё. Программа на Pascal готова!