Файлы лаба паскаль

CONST N=10;  M=15;
var
    f1,f2,f3:file of integer;       
    data,k2,k3:integer;
begin
    assign(f1,'file1.dat');
    Reset(f1);  
    Assign(f2,'file2.dat');
    Rewrite(f2);
    Assign(f3,'file3.dat');
    Rewrite(f3);
    k2:=0;
    k3:=0;
    While Not(EOF(f1)) do
        begin           
            Read(f1,data);
            if data<0 then 
                begin
                    write(f3,data);
                    inc(k3);
                end
            else
                begin
                    write(f2,data);
                    inc(k2);
                end;
        end;
    if k2=0 then writeln('Файл 2 будет пуст');
    if k3=0 then writeln('Файл 3 будет пуст'); 
    close(f1);
    close(f2);
    close(f3);
end.

var
    f1,f2:text;
    data:string;
    i:integer;
begin
    assign(f1,'file1.txt');
    Reset(f1);
    assign(f2,'file2.txt');
    Rewrite(f2);
  i:=0;
    While Not(EOF(f1)) do
        begin           
            while not(EOLn(f1))
                do
                    begin
                        Read(f1,data);
                        while (data<>'') do
                            begin
                                while (data[i]<>' ') and (data[i]<>'') do inc(i);
                                writeln(f2,Copy(data,1,i-1));
                                Delete(data,1,i);
                                i:=0;
                            end;
                    end;
            writeln(f2,'');
            readln(f1);
        end;
        close(f1);
        close(f2);
        readln;
    end.

var
    f1:file of integer ;
    a,data:integer; 
begin
    assign(f1,'file1.dat');
    Reset(f1);
    writeln('Введите a');
    readln(a);
    While Not(EOF(f1)) do
        begin           
            read(f1,data);      
            if data>a then write(data,' ');
        end;
    close(f1);
    readln;
end.