Найдите ошибку

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;
 
type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    V1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Memo1: TMemo;
    N5: TMenuItem;
    N6: TMenuItem;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type fs = file of string[10];
 
var
  Form1: TForm1;
  dir, fName: string;
  f1: fs;
 
implementation
 
{$R *.dfm}
 
function Count1(var f:fs):integer;
 var
 k, i: integer;
 s: string;
begin
    reset(f);
    k:=0;
    while (not eof(f)) do
    begin
//    read(f,s);  Выдает ошибку несоответствия типов ShortString и String
    For i:=0 to 9 do
        if s[1] = IntToStr(i) then k:=k+1; //нужно условие количество строк файла fs, начинающихся с цифры
    end;
    closeFile(f);
    count1:=k;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
dir:=ExtractFileDir(paramStr(0))+'\files';
OpenDialog1.InitialDir:=dir;
SaveDialog1.InitialDir:=dir;
end;
 
procedure TForm1.N1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
fName:=OpenDialog1.FileName;  //Сохранение пути и имени открывающегося файла
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
if Memo1.Lines.Count=0 then
begin
  ShowMessage('Нечего сохранять');
  exit
end;
if SaveDialog1.Execute then
begin
  Memo1.Lines.SaveToFile(saveDialog1.FileName);
  fName:=saveDialog1.FileName;  //Сохранение пути и имени сохраняемого файла
end;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
Memo1.Clear;
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
if MessageDlg('Вы действительно хотите удалить файл'+OpenDialog1.filename+'?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    DeleteFile(OpenDialog1.filename)
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
AssignFile(f1,FName); // связывает файловую переменную и файл, имя которого указано в FName
Edit1.Text:=IntTostr(Count1(f1));
end;
 
end.

//type fs = file of string[10];
 
var
  Form1: TForm1;
  dir, fName: string;
  f1:TextFile;
 
implementation
 
{$R *.dfm}
 
function Count1(var f:TextFile):integer;
 var
 k, i: integer;
 s: String;
begin
    reset(f);
    k:=0;
     while (not eof(f)) do
      begin
       ReadLn(f,S);
       if (ord(S[1]) >= 30) and (ord(S[1]) <= 39) then k:=k+1;
    end;
 
    closeFile(f);
    count1:=k;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
dir:=ExtractFileDir(paramStr(0))+'\files';
OpenDialog1.InitialDir:=dir;
SaveDialog1.InitialDir:=dir;
end;
 
procedure TForm1.N1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
fName:=OpenDialog1.FileName;  //Сохранение пути и имени открывающегося файла
end;
 
procedure TForm1.N2Click(Sender: TObject);
begin
if Memo1.Lines.Count=0 then
begin
  ShowMessage('Нечего сохранять');
  exit
end;
if SaveDialog1.Execute then
begin
  Memo1.Lines.SaveToFile(saveDialog1.FileName);
  fName:=saveDialog1.FileName;  //Сохранение пути и имени сохраняемого файла
end;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
Memo1.Clear;
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
if OpenDialog1.Execute then
if MessageDlg('Вы действительно хотите удалить файл'+OpenDialog1.filename+'?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    DeleteFile(OpenDialog1.filename)
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
AssignFile(f1,FName); // связывает файловую переменную и файл, имя которого указано в FName
Edit1.Text:=IntTostr(Count1(f1));
end;

if (ord(S[1]) >= $30) and (ord(S[1]) <= $39) then k:=k+1;

if S = '' then continue;