Pascal - chyba pri I/O

 Program pitko;
        uses crt,graph;
        var s:text;
             r:string;
            a:integer;

        begin
        repeat

        clrscr;
        Writeln ('Baraniak Stefan 3.C Spojena Skola Nizna 15.5.2012');
        Writeln ('Textovy subor -vytvorenie zapis');
        Writeln ('1. Vytvor subor text11.txt');
        Writeln ('2. Zapise do suboru Prva textova informacia');
        Writeln ('3. Umozni pridat vase zaznamy');
        Writeln ('4. Umozni vypisat zo suboru informacie');
        Writeln ('5. Koniec-Zvucka-Obrazok');
        Write ('Vasa volbaje:');
        read (a);
        case a of
        1: begin
           clrscr;
           assign(s,'text11.txt');
           rewrite (s);
           close (s);
           writeln ('Vytvoril som subor text11.txt');
           writeln ('Ak checte zapisovat do suboru informacia vradte sa do menu stlacenim lubovolnej klasevy');
           Readkey;
           end;
        2: begin
           clrscr;
           assign(s,'text11.txt');
           append (s);
           Writeln ('Prva Textova Informacia');
           writeln (s,'Prva textova Informacia');
           writeln ('Zapisal som do suboru');
           readkey;
           end;
        3: begin
           clrscr;
           assign(s,'text11.txt');
           append (s);
           Writeln ('Zadajte text');
           read (r);
           writeln (s,r);
           Writeln('Zapisal som VAs text do suboru');
           close (s);
           readkey;
           end;

          else
          writeln ('Zadali ste chybne cislo');

       end;
       until a=5;
       readkey;
       end.

Write ('Vasa volbaje:');
read (a);

Write ('Vasa volbaje:');
readln (a);