Можно pascal перевести в delphi?

Uses
CRT;
Const
nmax=4;
a:array [1..4] of real=(0.5, 1.8, 2.35, 4.1);
b:array [1..4] of real=(0.15, -0.1, 2.8, 1);
c:array [1..4] of real=(3.3, 4.1, -1.5, 0.1);
d:array [1..4] of real=(2.25, 3.8, 0.45, -4.1);
Type
Tmas=array[1..nmax,1..nmax] of real;
mas=array[1..nmax] of real;
var
a2,b2,c2,d2:mas;
a3:Tmas;
j,i:integer;

procedure Sort(Var s:mas;n:integer);
Var
buf:real;
i,j:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if s;
s:=s[j];
s[j]:=buf;
end;
end;

procedure form(s,l:mas;k:integer);
Var
j:integer;
begin
s:=l;
Sort(s,nmax);
FOR j:= 1 to nmax DO
a3[k,j]:=s[j];
end;

Begin
form(a2,a,1);
form(b2,b,2);
form(c2,c,3);
form(d2,d,4);
FOR i:= 1 to nmax DO
begin
FOR j:= 1 to nmax DO
begin
write(a3[i,j]:6:2);
end;
writeln;
end;
Readln
End.