создание текстового файла в самой программе на паскале

program f1;
var f:file of integer;
    k,l,i,j:integer;
    z:array [1..100] of integer;
begin
 assign(f,'f.txt');
 reset(f);
 for i:=1 to 5 do
  begin
   k:=0;
   for j:=1 to 5 do
    begin
     read (f,l);
     k:=k+l;
    end;
   z[i]:=k;
  end;
 for i:=1 to 5 do
 write (z[i]);
 readln;
 end.

uses crt;
const max=50;
var mas:array[1..max,1..max] of integer;
    vec:array[1..max] of integer;
    i,j,m,n,a:integer;
    nf:string;
    f:text;
begin
clrscr;
randomize;
write('Введите имя текстового файла: ');
readln(nf);
assign(f,nf+'.txt');
rewrite(f);
repeat
writeln('Размеры матрицы:');
readln(m,n);
until (m<max) and (n<max);
for i:=1 to m do begin
    for j:=1 to n do begin
                     mas[i,j]:=random(51);
                     write(f,mas[i,j]:4);
                     end;
                 writeln(f);
                 end;
reset(f);
for i:=1 to m do begin
    vec[i]:=0;
    for j:=1 to n do begin
                     read(f,a);
                     vec[i]:=vec[i]+a;
                     end;
    readln(f);
    end;
for i:=1 to m do write(vec[i]:4);
readln
end.