Переделать код на делфи

[Jedii]

Есть такой код. Нужно переделать его на делфи.

uses crt;
var a,b,x:array[1..400] of integer;
    mn:array[1..300] of real;
    n,m,k,i,j:integer;
    buf:real;
    f:boolean;
begin
clrscr;
randomize;
repeat
write('Размер массива А до 300 n=');
readln(n);
until(n>0)and(n<=300);
repeat
write('Размер массива B до 400 m=');
readln(m);
until(m>0)and(m<=400);
clrscr;
writeln('Массив A:');
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4)
 end;
writeln;
write('Press Enter');
readln;
writeln('Массив B:');
for i:=1 to n do
 begin
  b[i]:=random(20);
  write(b[i]:4)
 end;
writeln;
write('Press Enter');
readln;
k:=0;
for i:=1 to n do
 begin
  f:=false;
  j:=1;
  while(j<=m)and not f do
  if b[j]=a[i] then f:=true
  else j:=j+1;
  if f then
   begin
    j:=1;
    while(j<=k)and f do
    if a[i]=x[j] then f:=false
    else j:=j+1;
    if f then
     begin
      k:=k+1;
      x[k]:=a[i];
      mn[k]:=sin(x[k])
     end;
  end;
 end;
writeln('Массив X:');
for i:=1 to k do
write(x[i]:4);
writeln;
for i:=1 to k-1 do
for j:=i+1 to k do
if mn[i]>mn[j] then
 begin
  buf:=mn[i];
  mn[i]:=mn[j];
  mn[j]:=buf
 end;
writeln('Искомое множество:');
for i:=1 to k do
write(mn[i]:8:3);
readln
end.

[RomanPavlovich]

В принципе могу

[Serge_Bliznykov]

выкинуть из Паскалевского кода ДВЕ строчки:

эту:

uses crt;

и эту:

clrscr;

создать в Delphi консольный проект.
вставить весь код программы в проект.
Профит!