Как создать текстовый файл?

procedure Text;
var f:text;
     n,i:integer;
     a:array[1..200] of char;
begin
writeln('Введите кол-во элементов -> ');
read(n);
assign(f,'.\input.txt');
reset(f);
repeat 
    read(f,a[i]);
until i=n or eof(f);
close(f);
end;

uses crt;
const n=100;
var
mas: array [1..n] of integer;
TFile: Text;
i: integer;
 
begin
assign(TFile,'Input.txt');
rewrite(TFile);
write(TFile,'[');
for i:=1 to n do
 begin
 mas[i]:=random(100);
 write(TFile,mas[i],' ');
 end;
 write(TFile,']');
close(TFile);
end.

var finp,fout:text;
begin
assign(finp,'lab5.inp');reset(finp);
assign(fout,'lab5.out');rewrite(fout);
readln(finp,n)
for i:=1 to n do read(finp,c[i]);
writeln(fout,'kol-vo elementov v massive C=',n:3);
writeln(fout,'Ishodny massiv C');
for i:=1 to n do write(fout,c[i]:7:2);
writeln(fout);

begin
assign(finp,'lab5.inp');reset(finp);
assign(fout,'lab5.out');rewrite(fout);
readln(finp,n)
for i:=1 to n do read(finp,c[i]);
writeln(fout,'kol-vo elementov v massive C=',n:3);
writeln(fout,'Ishodny massiv C');
for i:=1 to n do write(fout,c[i]:7:2);
writeln(fout);   - не могу понять а это тут зачем? В методичке так.
for i:=1 to n do 
begin
if c[i]<13 then begin writeln(fout,’N elementa  massiva  C<13 ',i:3); a[i]:=13;end
                else a[i]:=c[i];
end;
writeln(fout,'Preobrazovannyi  massiv A');
for i:=1 to n do write(fout,a[i]:7:2);
writeln(fout); - не могу понять а это тут зачем? В методичке так.
writeln(fout); 
close(fout);
close(finp);
end.

{Для работы с текстовыми файлами нужно
 их описать в var делается это следующим образом}
var 
f:text;{имя переменной можно брать любое конечно же}
{Для работы с файлом в программе после begina главной
 программы нужно привзать pascal к нужному файлу
 с помощью assign это делается так :}
 assign(f,'имя файла'){где f = файловая переменная, вместо имени
 файла лучше всего использовать полный путь файла}
{При дальнейшей работе с данными из файла например
 считывании запись в файл и т.д. нужно будет указывать
 из какого файла или куда брать или записывать переменную}
{Например}
read(f,n)
write(f,n)
{Остальные функции можно найти в интернете}

read(f,n);
for i:=1 to n do
read(f,a[i]);