Проблема при переносе кода из паскаля в делфи

[_4Alex4_]

переношу вот этот код из паскаля в делфи

PHP код:

program invers1;
uses crt;
var a: array[1..20] of integer;
    i,k,j,x:integer;
begin
   clrscr;
   randomize;
   for i:=1 to 20 do
     a[i]:= random(9)+1;
   for i:=1 to 20 do
     write(a[i],' ');readln;
   for i:=1 to 19 do
      begin
         for j:=1 to 19 do
             if a[j]>a[j+1] then
                 begin
                    x:=a[j];a[j]:=a[j+1];a[j+1]:=x;k:=k+1;
                 end;
      end;
write('k=',k);readln
end. 


вот этот код перенесенный мною в делфи

PHP код:

var a: array[1..20] of integer;
    i,k,j,x:integer;
begin
   randomize;
   for i:=1 to 20 do
     a[i]:= random(9)+1;
   for i:=1 to 20 do
     write(a[i],' ');readln;
   for i:=1 to 19 do
      begin
         for j:=1 to 19 do
             if a[j]>a[j+1] then
                 begin
                    x:=a[j];a[j]:=a[j+1];a[j+1]:=x;k:=k+1;
                 end;
      end;
write('k=',k);
readln 


что я делаю не так? делфи все равно ругается

[Hacker19_90]

НА ЧТО РУГАЕТСЯ?
ТУТ НЕ ТЕЛЕПАТЫ!
ПРИВОДИТЕ ОШИБКИ КОМПИЛЯТОРА!

[BDA]

Собственно говоря, весь перенос занял 1 минуту вместе с набором сообщения

program invers1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a: array[1..20] of integer; 
    i,k,j,x:integer;

begin
   randomize; 
   for i:=1 to 20 do 
     a[i]:= random(9)+1; 
   for i:=1 to 20 do 
     write(a[i],' ');readln; 
   for i:=1 to 19 do 
      begin 
         for j:=1 to 19 do 
             if a[j]>a[j+1] then 
                 begin 
                    x:=a[j];
                    a[j]:=a[j+1];
                    a[j+1]:=x;
                    k:=k+1;
                 end; 
      end; 
write('k=',k);
readln
end.

Компилируется и что-то выводит
Ошибок не выдает.

[Serge_Bliznykov]

очевидно автор темы забыл создать КОНСОЛЬНОЕ приложение.

{$APPTYPE CONSOLE}

а в не консольном, все readln/writeln будут при компиляции вызывать ошибку!