[Pascal] program wypisujący słowa do innego pliku

[ct985]

Jak napisać program, który znajdzie wszystkie słowa w pliku zaczynające się literą 'a' i wypisze je do nowo utworzonego pliku tekstowego, a później wypisze zawartość nowo utworzonego pliku?

Kod: Zaznacz cały

program zad_2;
uses crt;

var
        plik,nowy,r:text;
        znak,F:string;


begin
        assign(plik,'dane.txt');
        reset(plik);
        assign(nowy,'dane2.txt');
        rewrite(nowy);
        while not eof(plik) do begin
                while not eoln(plik) do begin
                read(plik, znak);
                if ((znak<>' ') and (znak='a')) then writeln(nowy, znak);
                end;
        end;
        readln(plik);
        readln(nowy);
        close(plik);
        close(nowy);

        {wypisanie zawartosci dane2.txt}

        assign(r,'dane2.txt');
        reset(r);
        readln(r, F);
        writeln(F);
        close(r);
        readln
end.