Сформировать типизированный файл строк (длина не более 30 символов). Для каждой строки файла: - вывести ее на экран,

var
  s: string[20];
  f: file of string[20];
  k, j, n, i: Integer;
 
begin
  write('N?');
  readln(n);
  Assign(f, 's.dat');
  Rewrite(f);
  for i := 1 to n do 
  begin
    Write('String? ');
    ReadLn(s);
    Write(f, s);
  end;
  writeln('Файл: ');
  reset(f);
  while not eof(f) do
  begin
    read(f, s);
    k := 0;  
    for j := 1 to length(s) do
    begin
      if s[i] in ['А'..'Я', 'а'..'я'] then
        inc(k);
    end;
    if k = 4 then
      writeln(s, ' : ', k)
    else
      writeln(s);
  end;
  close(f);
end.

Program Alpha;
uses crt;
Type Znachenie = record
zna: string[30];
end;
var files : Znachenie;
f: file of Znachenie;
name: string;
i,kol, kol1:integer;
begin
clrscr;
Writeln ('Задайте имя файла:');
Readln (name);
Assign (f, name);
Rewrite (f);
Writeln ('Введите значение с клавиатуры:');
Readln (files.zna);
kol:=0;
for i:=1 to length(files.zna) do
if files.zna[i] in ['А'..'Г'] then begin 
inc(kol);
end;
for i:=1 to length(files.zna) do
if files.zna[i] in ['а'..'г'] then begin
inc(kol1);
end;
writeln;
writeln('Количество= ', kol+kol1);
Write (f, files);
Close(f);
Writeln ('Файл создан!');
readln
end.