Free Pascalban ezt hogy kell megírni?

Program szamjegy;

Var

egysz:byte; //hány darab egy számjegyű

ketsz:byte; //hány darab két számjegyű

x:byte; //ebbe kéred be

k:byte; //számlálós ciklushoz kell

Begin

egysz:=0;

ketsz:=0;

For k:=1 to 5

Begin

Write('Kérem a(z) ',k,'. számot:').

Readln(x);

If x<10 then

egysz:=egysz+1

Else

ketsz:=ketsz+1;

End;

Writeln('Két számjegyű: ',ketsz,' db, egy számjegyű: ',egysz,' db');

Readln;

End.

Természetesen feltételeznünk kell, hogy nem írunk be két számjegyűnél nagyobb számot.