помогите с turbo paskal!!!!

я написал такую прогу:

Program ugadaika;
var c,s,k:longint;
begin
s:=0;
c:=random(100);
repeat
writeln ('Give key');
Readln (k);

s:=s+1;
if k>c
then begin
writeln ('new key, this is bigger');
end;

if k

if k

не влазит

if k