Mam prośbę. Kto moógłby znaleźdź tutaj błąd? Zależy mi na odpowiedziach w formie a b c, ale gdy tylko uruchamiam program, to mam losowo wybierane pytania...
program sprawdzian_pascal;
uses crt;
var
i,x:integer;
p:byte;
a:char;
begin
textbackground(lightblue);
clrscr;
Repeat
textcolor(14);
gotoxy(6,6);
Writeln('Test z umiejetnosci programowania w jezyku Pascal');
textcolor(15);
gotoxy(32,11);
writeln('1 <- Start');
gotoxy(32,12);
writeln('2 <- Autor');
gotoxy(32,13);
writeln('3 <- Koniec');
readln(i);
clrscr;
if i=1 then
begin
repeat
p:=0;
gotoxy(6,6);
writeln('1. Gdy chcemy napisać wypracowanie włączamy jaki program?');
writeln;
writeln('a) Word');
writeln('b) Access');
writeln('c) Excel');
read(a);
if a='a' then
p:=p+1;
clrscr;
writeln;
writeln('Uzyskales ',p,' na 20 Punkow');
case p of
0..9 : writeln('Pala, Siadaj!!');
10..15 : Writeln('Ladnie');
16..20 : Writeln('Bardzo Ladnie');
end;
until p<1;
end;
if i=2 then
begin
TextColor(15);
GotoXY(32,11);
writeln('Bartosz Kupajczyk II ti');
delay(2000);
end;
if i=3 then
begin
exit
end;
writeln;
writeln;
writeln('Chcesz wrocic?');
writeln('1 <- TAK');
writeln('2 <- NIE');
readln(x);
clrscr;
if x=1 then
until x=2;
end.