ФАЙЛ!!!!!С данными!!!

var a: array [1..100] of real;
 i,j,k,r: integer;
 f:text;
 begin
 assign(f,'in.txt');    //здесь путь к файлу или не изменять, если файл в той же директории, где и сохранена программа
 reset(f);
 i:=0; k:=0;
 while not (eof(f)) do
       begin
       inc(i);
       read(f,a[i]);
       end;
 r:=i;
 for i:=1 to r do
     if (a[i]>=1) and (a[i]<=5) then
        begin
        for j:=i to r do
            a[j]:=a[j+1];
            inc(k);
        end;
 r:=r-k;
 rewrite(f);
 for i:=1 to r do
     write(f,a[i],' ');
 close(f);
 end.

var a: array [1..100] of real;
 i,j,k,r: integer;
 f:text;
label 1;
 begin
 assign(f,'in.txt');    //здесь путь к файлу или не изменять, если файл в той же директории, где и сохранена программа
 reset(f);
 i:=0; k:=0;
 while not (eof(f)) do
       begin
       inc(i);
       read(f,a[i]);
       end;
 r:=i;
1: for i:=1 to r do
     if (a[i]>=1) and (a[i]<=5) then
        begin
        for j:=i to r do
            a[j]:=a[j+1];
        inc(k);
        goto 1;
        end;
 r:=r-k;
 rewrite(f);
 for i:=1 to r do
     write(f,a[i],' ');
 close(f);
 end.

var a: array [1..100] of real;
 i,j,k,r: integer;
 f:file of real;
label 1;
 begin
 assign(f,'D:\rrre\in.txt');
 reset(f);
 i:=0; k:=0;
 while not (eof(f)) do
       begin
       inc(i);
       read(f,a[i]);
       end;
 r:=i;
1: for i:=1 to r do
     if (a[i]>=1) and (a[i]<=5) then
        begin
        for j:=i to r do
            a[j]:=a[j+1];
        inc(k);
        goto 1;
        end;
 r:=r-k;
 rewrite(f);
 for i:=1 to r do
     write(f,a[i]);
 close(f);
 end.

uses crt;
var a: array [1..100] of real;
 i,j,k,n: integer;
 f:text;
label 1;
 begin
 clrscr;
 randomize;
 assign(f,'D:\rrre\in.txt');
 rewrite(f);
 writeln('n=');
 readln(n);
 for i:=1 to n do
     begin
     a[i]:=random(19)-9;
     write(f,a[i],' ');
     end;
 reset(f);
 k:=0;
 for i:=1 to n do
     begin
     read(f,a[i]);
     write(a[i],' ');
     end;
 for i:=1 to n do
     if (a[i]>=1) and (a[i]<=5) then
        begin
        for j:=i to n-1 do
            a[j]:=a[j+1];
        inc(k);
        dec(i);
        end;
n:=n-k;
 rewrite(f);
 for i:=1 to n do
     write(f,a[i],' ');
writeln('');
reset(f);
for i:=1 to n do
     begin
     read(f,a[i]);
     write(a[i],' ');
     end;
 close(f);
 readkey
 end.