Перевести из паскаля в делфи

 var a,b:array[1..100] of integer;
i,j,min,n,k:integer;
begin
repeat
Write('n=');
Readln(n);
until n in [1..100];
for i:=1 to n do
begin
a[i]:=random(10)-3;
Write(a[i],' ');
end;
Writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
for i:=1 to n do
if a[i]<>min then
begin
k:=k+1;
b[k]:=a[i];
end;
Writeln('Min ',min);
for i:=1 to k do
Write(b[i],' ');
Readln;
end.

const max=100;
var a:array[1..max] of real;
n,i,ip:byte;
x:real;
begin
randomize;
repeat
write('Размер массива от 1 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=10*random-4;
write(a[i]:6:2);
end;
writeln;
writeln;
ip:=0;
for i:=1 to n do
if a[i]>0 then ip:=i;
if ip=0 then write('Положительных элементов нет!')
else
begin
writeln;
x:=a[ip];
a[ip]:=a[2];
a[2]:=x;
writeln('Обмен второго и последнего положительного элементов:');
for i:=1 to n do
write(a[i]:6:2);
writeln;
writeln;
end;
writeln;
writeln('Деление всех элементов на первый элемент:');
for i:=1 to n do
begin
if i mod 1=0 then a[i]:=a[i]/a[1];
write(a[i]:6:2);
end;
readln
end.

program Q6;
var a:array[1..50,1..100] of integer;
m,n,i,j:byte;
x:integer;
begin
randomize;
m:=5;
n:=6;
writeln('Исходная матрица:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;
writeln;
for i:=(m div 2+1) to m do
for j:=1 to n do
a[i,j]:=a[i+1,j];
m:=m-1;
writeln('Удаление средней строки:');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
for i:=1 to m do
begin
x:=a[i,n div 2];
a[i,n div 2]:=a[i,n div 2+1];
a[i,n div 2+1]:=x;
end;
writeln;
writeln('Обмен средних столбцoв:');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
readln
end.

program q5;
Var a,b,c:integer;
Begin
for a:=1 to 20 do
for b:=1 to 20 do
For c:=1 to 20 do
begin
if (a)+(b)=sqr(c)
then writeln('X = ',a:1,' Y = ',b:1,' Z = ',c:1);
end;
readln;
End.

program z2_49;
var x1,x2,y1,y2,a,b,b1,c,d,k,r:Real;
k1:integer;
Begin
Write('Введите k,b=');
Read(k,b);
Write('Введите r=');
Read(r);
a:=1+k*k;
b1:=2*k*b;
c:=b*b-r*r;
if d<0 then
begin
Write('Точек пересечения нет');
end;
if d=0 then
begin
Write('Прямая касается окружности в точке ');
write('с координатами:');
Write('x=',-b1/(2*a):5:6,'y=',-(b1*k)/(2*a)+b:5:6);
end;
x1:=(-b1+sqrt(d))/(2*a);
x2:=(-b1-sqrt(d))/(2*a);
y1:=k*x1+b;
y2:=k*x2+b;
If x1*y1>0 then if x1>0 then k1:=1 else k1:=4
else if x1>0 then k1:=4 else k1:=2;
Writeln('точек пересечения две');
Writeln(x1:1:1,';',y1:1:1,' координатная четверть ',k1);
end.