Program w Pascalu pt. Silnia

Program silnia;
Uses Crt;
Var a,b,c:REAL;
e:char;
begin
repeat
ClrScr;
write('podaj liczbe ktrĄ chcesz podnie† do pot©gi silnia (1-8): ');
readln(a);
IF (a<1) or (a>33) THEN writeln('bĄd ')
else begin
b:=0;
c:=1;

repeat
b:=b+1;
c:=c*b;

until b=a;
writeln('warto† silni z liczby: ',a:0:0,' wynosi: ',c:0:0);
end;
repeat
writeln(' czy chcesz kontynuowa† ? (t/n)');
readln(e);
if (e='T') or (e='t') or (e='N') or (e='n') then writeln('ok')
else
begin
writeln('N lub n lub t lub T ty gupi baranie!!');
delay(1000);
end;
until (e='T') or (e='t') or (e='N') or (e='n');
until (e='n') or (e='N');
gotoXY(5,20);
writeln('Programmed by Johny's friend');
delay(2000);
end.