pascal help

program jatek;
uses crt;
label eleje;

    var c:char;
    y:char;
    x:char;
begin
    clrscr;
    eleje:
    writeln('Merre indulsz el a (balra)');
    delay(1000);
    writeln('s (le)');
    delay(1000);
    writeln('d (jobbra)');
    delay(1000);
    writeln('w (elore)');
    readln(c);

    Case c of
        'a':
        begin
            clrscr;
            writeln('Elore mentel');
            delay(2000);
            clrscr;
            writeln('Kocsmaba vagy. e (iszol) , h (szamot kersz)');
            readln(y);
            Case y of
            'e':
                begin
                    clrscr;
                    writeln('Ittal.');
                    delay(1000);
                    writeln('Haza menni. t (taxi) , b (seta)');
                    readln(x);
                    case x of
                        't': writeln('Taxiztal');
                        'b': writeln('Setaltal');
                        'h':
                        begin
                            clrscr;
                            writeln('Szamot kertel');
                            delay(1000);
                            end;
                    end;
                end;
            end;
        end;
    end;
end.