Написать программу, которая позволяет дописать в конец файла общее число содержащихся в нем строк, а также количество начинающихся с пробела — Pascal(Паскаль)

var yulya1, yulya2 : text;
    n,m : byte;
    s : string;
 
 
begin
Assign(yulya1,'textfile.txt');
 Reset(yulya1);
 Assign(yulya2,'textfile.txt');
  Append(yulya2);
  while not eof (yulya1) do
   begin
     inc(n);
     Readln(yulya1,s[1]);
     if (s[1]=#32) then inc(m);
   end;
 writeln(yulya2,'Number of rows =',n,' Number of rows, where the first symbol - space =',m);
 close(yulya1);
 close(yulya2);
 
 end.