free pascal

[kamiatus]

otóż mam problem z pewnym programem w pascalu

program cos;

uses crt;

var x,a,c:integer;

var delta:string;

begin

clrscr;

writeln('wybierz danie');

writeln('Zupa-1,Ziemniaki-2,Kanapki-3,cos innego-4');

read(x);

case x of 2: begin

writeln ('1. Zupa pomidorowa');

writeln ('2. Ogorkowa');

writeln ('3.krupnik');

read(a);

case a of

1:writeln('wybrales zupe pomidorowa');

2:writeln('wybrales ogorkowa');

3:writeln('wybrales krupnik');

end;

writeln('podac cos jeszcze:1-nie,2-tak');

read(delta);

if delta:2 end; else

if delta:1 writeln('1-jajecznica,2-kanapka,placki ziemniaczane');

read©;

case c of

1:writeln('wybrales dodatkowo jajecznice');

2:writeln('wybrales kanapke z serem');

3:writeln('wybrales placki ziemniaczane');

writeln('dziekuje za zamowienie, posilek zaraz podamy');

readkey;

end.

mam błąd w linijce 22,9 Fatal: Syntax error, then expected but : found niżej zamieszczę plik w formacie gotowym dla pascala

http://www.przeklej.pl/plik/restauracja-pas-0033d0bs8bq4

[Sebekkot]

A poza tym błędem widzę że nie do końca wiesz jak używać if'a i case'a.