Перевод с делфи на паскаль

const
  n=10;
var
  a:array[1..n]of integer;
  i,j,min,max,temp,tempmax,tempmin:integer;
begin
  {перестановка местами минимального и максимального}
  min:=a[1];
  max:=min;
  tempmin:=1;
  tempmax:=tempmin;
  for i:=2 to n do
  begin
    if a[i]>max then
    begin
      max:=a[i];
      tempmax:=i
    end;
    if a[i]<min then
    begin
      min:=a[i];
      tempmin:=i
    end;
  end;
  temp:=a[tempmax];
  a[tempmax]:=a[tempmin];
  a[tempmin]:=temp;
  {удалить все отрицательные элементы  массива}
  i:=1;
  repeat
    if a[i]<0 then
    begin
      for j:=i+1 to n do
        a[j-1]:=a[j];
      a[n]:=0
    end
    else
      inc(i)
  until
    i=n;
end;

var a: array of real;
      n,i,j,l :integer;
       max,min,k :real;
begin
n:=strtoint(edit1.text);
setlength(a,n);
for i:=1 to n do
a[i]:=strtofloat(memo1.lines[i-1]);
max:=a[1]; min:=a[1];
for i:=1 to n do begin
if max<a[i] then max:=a[i]; j:=i;
if min>a[i] then min:=a[i]; l:=i;
if min=max then showmessage('все числа повторяются') else begin
a[j]:=k; a[j]:=a[l]; a[l]:=k;
end; end;
i:=1; 
while i<=n do 
if a[i]<0 then begin
a[i]:=a[i+1]; n:=n-1; inc(i)
else showmessage('отрицательных элементов нет');
end;
for i:=1 to n do
memo1.lines.add(floattostr(a[i]));
finalize(a);
end;