Проверить количество записей record

program project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes,Crt,FileUtil;
  { you can add units after this }
Type  tabl=Record
      nazvanie:string;
      avtor:string;
      tipo:string;
      zena:integer;
      god:string;
      tirash:integer;
     End;
  const
    n=2;
var
s:array[1..n] of tabl;
m,i,j:integer;
x:string;
 
begin
for i:=1 to n do
begin
 writeln(utf8toconsole('Введите название'));
 readln(s[i].nazvanie);
 writeln(utf8toconsole('Введите автора'));
 readln(s[i].avtor);
 writeln(utf8toconsole('Введите типографию'));
 readln(s[i].tipo);
 writeln(utf8toconsole('Введите год издания'));
 readln(s[i].god);
 writeln(utf8toconsole('Введите цену'));
 readln(s[i].zena);
 writeln(utf8toconsole('Введите тираж'));
 readln(s[i].tirash);
end;
m:=n;
for i:=1 to n-1 do
  begin
    if s[i].god='2000' then
      for j:=i to n-1 do
      s[i]:=s[i+1];
 
  end;
 for i:=1 to n do
   if s[i].god='2000' then
   m:=m-1;
 if s[i]='' then
 writeln(utf8toconsole('НЕТУ ЗАПИСЕЙ '));
 for i:=1 to m do
begin
   writeln(utf8toconsole('название №'),i);
   writeln(s[i].nazvanie);
   writeln(utf8toconsole('автор №'),i);
   writeln(s[i].avtor);
   writeln(utf8toconsole('типография №'),i);
   writeln(s[i].tipo);
   writeln(utf8toconsole('год издания №'),i);
   writeln(s[i].god);
   writeln(utf8toconsole('цена №'),i);
   writeln(s[i].zena);
   writeln(utf8toconsole('тираж №'),i);
   writeln(s[i].tirash);
   readln;
  end;
for i:=1 to m do
begin
for j:=i+1 to m do
 if s[i].god>s[j].god then
  begin
    x:=s[i].god;
    s[i].god:=s[j].god;
    s[j].god:=x;
  end;
end;
for i:=1 to m do
begin
  writeln(utf8toconsole('Упорядоченые года  '), s[i].god);
end;
readln;
end.