Dzień dobry. Napisałem program mający szyfrować i rozszyfrowywać tekst w szyfrze Cezara ale nie chce się skompilować. Terminalowy free pascal pod Ubuntu przy próbie skompilowania informuje mnie, że znalazł 3 błędy, niestety nie informuje gdzie i jakie to błędy. Bardzo proszę o pomoc i z góry za nią dziękuje. Z góry też przepraszam za brak użycia funkcji.
program szyfr_cezara;
uses CRT;
procedure Copyright;
begin
clrscr;
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln('= #CEZ-NIGMA 2.0 =');
writeln('= STWORZONE PRZEZ =');
writeln('= = = = = = = = = = = = = = = = = = = = =');
end;
procedure Menu;
begin
var a:integer;
clrscr;
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln('= #CEZ-NIGMA 2.0 =');
writeln('= > MENU < =');
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln;
writeln;
writeln(' [1] SZYFROWANIE');
writeln(' [2] DESZYFROWANIE');
writeln(' [3] WYJDZ');
writeln;
writeln;
write(' WYBIERZ DZIALANIE (1-3): ');
readln(a);
case a of
1: Szyfrowanie;
2: Deszyfrowanie;
3: halt;
else
writeln('MUSISZ WPISAC 1, 2 lub 3');
end;
end;
procedure Szyfrowanie;
var tekst,a:string;
b,i,c:integer;
begin
clrscr;
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln('= #CEZ-NIGMA 2.0 =');
writeln('= > SZYFROWANIE < =');
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln;
writeln;
writeln(' WYPISZ TEKST DO ZASZYFROWANIA');
writeln(' (ZNAKI A-Z BEZ POLSKICH)');
writeln;
write('TEKST: ');
readln(tekst);
tekst:=upcase(tekst);
b:=length(tekst);
repeat
clrscr;
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln('= #CEZ-NIGMA 2.0 =');
writeln('= > SZYFROWANIE < =');
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln;
writeln;
writeln('TEKST KTORY WPISALES: ',tekst);
writeln;
write('CZY CHCESZ TAK ZOSTAWIC? (TAK/NIE): ');
readln(a);
a:=upcase(a);
until a='tak';
clrscr;
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln('= #CEZ-NIGMA 2.0 =');
writeln('= > SZYFROWANIE < =');
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln;
writeln;
write(' WYPISZ LICZBE PRZESUNIECIA: ');
readln(c);
clrscr;
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln('= #CEZ-NIGMA 2.0 =');
writeln('= > SZYFROWANIE < =');
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln;
writeln;
for i:=1 to b do
begin
if (ord(tekst[i])+c<=122) then tekst[i]:=chr(ord(tekst[i])+c)
else
tekst[i]:=chr(ord(tekst[i])+c-122+96);
end;
writeln('ZASZYFROWANY TEKST:',tekst);
end;
procedure Deszyfrowanie;
var tekst,a:string;
b,i,c:integer;
begin
clrscr;
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln('= #CEZ-NIGMA 2.0 =');
writeln('= > DESZYFROWANIE < =');
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln;
writeln;
writeln(' WYPISZ TEKST DO ODSZYFROWANIA');
writeln(' (ZNAKI A-Z BEZ POLSKICH)');
writeln;
write('TEKST: ');
readln(tekst);
tekst:=upcase(tekst);
b:=length(tekst);
repeat
clrscr;
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln('= #CEZ-NIGMA 2.0 =');
writeln('= > DESZYFROWANIE < =');
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln;
writeln;
writeln('TEKST KTORY WPISALES: ',tekst);
writeln;
write('CZY CHCESZ TAK ZOSTAWIC? (TAK/NIE): ');
readln(a);
a:=upcase(a);
until a='tak';
clrscr;
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln('= #CEZ-NIGMA 2.0 =');
writeln('= > DESZYFROWANIE < =');
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln;
writeln;
write(' WYPISZ LICZBE PRZESUNIECIA: ');
readln(c);
clrscr;
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln('= #CEZ-NIGMA 2.0 =');
writeln('= > DESZYFROWANIE < =');
writeln('= = = = = = = = = = = = = = = = = = = = =');
writeln;
writeln;
for i:=1 to b do
begin
if (ord(tekst[i])-c>=97) then tekst[i]:=chr(ord(tekst[i])-c)
else
tekst[i]:=chr(ord(tekst[i])-c+26);
end;
writeln('ODSZYFROWANY TEKST:',tekst);
end;
BEGIN
clrscr;
Copyright;
Menu;
readln;
END.