Язык Pascal. Программирование для начинающих

var
    f1, f2: file of char;
    c: char;
    k: integer;
 
begin
    assign (f1, 'c:\file1.txt');
    reset (f1);
 
    assign (f2, 'c:\file2.txt');
    rewrite (f2);
 
    k := 0;
 
    while not eof (f1) do begin
        read (f1, c);
        if (c = 'a') or (c = 'e') or (c = 'u') then begin
            write (f2, c);
            k := k + 1
        end
    end;
 
    close (f1);
    close (f2);
 
    reset (f2);
 
    while not eof (f2) do begin
        read (f2, c);
        write (c:2)
    end;
 
    writeln;
    writeln (k);
 
readln
end.