[TP] Problem z programem!

Mam problem z programem, który dostałem. Nie mam pojęcia czemu nie chce działać :(. Oto kod tego programu:

Program Blizniacze;

uses Crt;

function LiczbaPierwsza(const Liczba: Longint): Boolean;
var
i: Longint;
LDzielnikow: Integer;
begin
LDzielnikow := 2;
for i := 2 to Liczba div 2 do
if (Liczba mod i) = 0 then
Inc(LDzielnikow);
LiczbaPierwsza := LDzielnikow = 2;
end;

var
i: Longint;

begin
ClrScr;
for i := 3 to 1000000 do
if (LiczbaPierwsza(i)) and (LiczbaPierwsza(i - 2)) then
Writeln('Liczby: ', i, ' i ', i - 2);
Readln;
end.

Ten program służy do znajdywania liczb bliźniaczych. W miejscu, które podkreśliłem wyskakuje Error2: Identifier expected. Pytanie czemu? :( Plz help z góry thx!

Pewnie TP5.5. Wywal const i po kłopocie (chyba :) )

Dokładnie TP 5.5! Działa! Wielkie dzięki kolego. A wiesz może jak zabezpieczyć taki program przed wejściem do kodu? Znaczy chodzi o to aby pod koniec zapytał: Jeżeli chcesz wyjść z programu naciśnij Escape, aby powtórzyć wylicznie naciśnij spację.

var
i: Longint;
Z:Char;

begin
  repeat
    ClrScr;
    for i := 3 to 1000000 do
    if (LiczbaPierwsza(i)) and (LiczbaPierwsza(i - 2)) then
    Writeln('Liczby: ', i, ' i ', i - 2);            Readln;
    Write('Czy chcesz zakonczyc? (T/N)'); Read(Z);
  until (Z in ['t','T','y','Y']);
end.

begin
repeat
ClrScr;
for i := 3 to 1000000 do
if (LiczbaPierwsza(i)) and (LiczbaPierwsza(i - 2)) then
Writeln('Liczby: ', i, ' i ', i - 2); Readln;
write('Czy chcesz zakonczyc? (T/N)'); read(Z);
until (Z in ['t','T','y','Y']);
end.

Do tego jest ReadKey!