Массив записей, много ошибок. / Pascal ABC

procedure readzap (M:mas);
var i: integer;
    M: array [1..10] of rec;
begin
for i:= 1 to 2 do
 begin  
  readln( M[i].nm);
  readln(M[i].no);
  readln(M[i].gv);
  readln(M[i].kol);
  readln(ch);
  M[i].g:=ch='y';
  readln(ch);
  M[i].kr:=ch='y';
 end;  
 end;
 
uses crt;
const bk=['A'..'Z','a'..'z','А'..'я','Ё','ё'];
      cf=['0'..'9'];
type rec = record
                     nm: string[10]; 
                     no: string [20];
                     gv: integer;
                     kol:integer;
                     g: boolean;
                     kr: boolean;
end;
var i: integer;
    M: array [1..10] of rec;
    ch: char;
 begin  
 procedure readzap;
  end;
 writeln('инв.номер   наименование   год выпуска   количество  гарантия   ремонт');
 
 for i:= 1 to 2 do
 begin
  Write( M[i].nm:5);
  write(M[i].no:15);
  write(M[i].gv:15);
  write(M[i].kol:13);
 write(ch:10);
  if M[i].g then write('y':10);
  writeln;
 reset(f);
 seek(f,i);
 reset(f);
 Writeln('Введите № записи для редактирования:');
 readln(i);
 writeln('инв.номер   наименование   год выпуска   количество  гарантия   ремонт');
 readln('считывание в соответствующую запись');
  M[i].nm;
  M[i].no;
  M[i].gv;
  M[i].kol;
   M[i].g;
  M[i].kr;
 seek(f,i-1);
 read(f,M[i]);
 close(f);
 procedure readzap(var M[i]rec);
end.