Дан текстовый файл. Сравнить количество строк, в которых есть буква "м" и строк, которые имеют четную длину

 Procedure createfile(name:string);   
   var i,n:integer;   
       s:string;   
       f:text;   
   Begin   
     writeln('Количество элементов: ');   
     readln(n);   
     assign(f,'.\'+name);   
     rewrite(f);   
     for i:=1 to n do   
     Begin   
       readln(s);   
       writeln(f,s);   
     end;   
     close(f);   
   end;   
 
   var name, s1:string;   
       f:text;   
       s:array [1..200] of string;   
       i1,i,n,m,k1,k,ss:byte;   
   Begin   
     writeln('Введите имя фойла ');   
     readln(name);   
     writeln('Для создания нажмите 1 ');   
     readln(n);   
     if n=1 then createfile(name);   
     assign(f,'/'+name); 
     reset(f);   
     read(f);   
   Begin   
     for i:=1 to n do readln(s[i]);   
     for i:=1 to n do   
     for k:=1 to length(s[i]) do   
     if s[i][k]='m' then   
  [COLOR="Red"] { while s[i][k]='m' do }   
     Begin   
       m:=m+1;   
       i1:=i+1;   
       k1:=1;   
 
      END;   [/COLOR]
     ss:=0;   
     for i:=1 to n do   
     if length(s[i]) mod 2 = 0 then ss:=ss+1;   
     if ss>m then writeln('chetnix bolshe, chem s "m" na ', ss-m);   
     if ss=m then writeln('chetnix stolko je, skolko s "m", a imenno ',m);   
     if ss<m then writeln('chetnix menshe, chem s "m" na ', -(ss-m));   
     close(f);   
   end;   
  readln;  
 end.

[COLOR="Red"]procedure filecreate(name:string);
 var f,g:file of real;
    n,i:integer;
    r:real;  
   begin  
     { clrscr;}  
      assign(f,'/'+name);  
      reset(f);  
      assign(g,'/'+name);  
      reset(g);  
      writeln('Количество элементов: ');  
      readln(n);  
      for n:=1 to n do  
      Begin  
          readln(r);  
          write(f,r);  
      end;  
      close(f);  
      close(g);  
   end;  
  var name:string;  
      f,g:text;  
      s1,s2:string[80];  
      sh,poz,i,j:integer;  
  begin  
    clrscr;  
    writeln('Введите имя файлу: ');  
    readln(name);  
    writeln('Создать файл f?');  
    readln(i);  
    if i=1 then filecreate(name);  
    assign(f,'/'+name);  
    reset(f);  
    writeln('Создать файл g?');  
    readln(j);  
    if j=1 then filecreate(name);  
    assign(g,'/'+name);  [/COLOR]
    rewrite(g);  
    sh:=0;  
    poz:=0;  
    repeat  
      sh:=sh+1;  
      readln(f,s1);  
      if not eof(g) then readln(g,s2);  
      if s1<>s2 then  
      begin  
        for i:=1 to length(s1) do if s1[i]<>s2[i] then if poz=0 then poz:=i;  
      end;  
    until eof(f)or(poz<>0);  
    writeln('Nomer stroki: ',sh);  
    writeln('Pozitsiya elemeta:  ',poz);  
    close(f);  
    close(g);  
    readln;  
  end.