Выдает ошибку в Делфи is not a valid integer value

type kostdomino = record 
 lev,prav:integer; 
 end; 
 ryd = array [1..28] of kostdomino; 
var 
 Form4: TForm4; 
 n,i,k,m: integer; 
 mass1: ryd; 
 h: boolean; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm4.Button1Click(Sender: TObject); 
 function qot (mass11: ryd; a1: integer): boolean; 
 var p: integer; 
 begin 
 for p:=1 to a1-1 do 
 if (mass11[p].lev=mass11[p+1].prav) then 
 qot:=true 
 else begin 
 qot:=false; 
 break; 
 end; 
 end; 
begin 
k:=1; 
m:=1; 
n:=0; 
{for i:=1 to (Memo1.Lines.Count)-1 do 
 begin 
 if (i mod 2)=0 then 
 begin 
 mass1[m].lev:=strtoint(Memo1.Lines[i]); 
 m:=m+1; 
 //n:=n+1; 
 end 
 else 
 begin 
 mass1[k].prav:=strtoint(Memo1.Lines[i]); 
 k:=k+1; 
 end; 
end;} 
 repeat 
 mass1[k].lev:=strtoint(Memo1.Lines[n]); 
 mass1[k].prav:=strtoint(Memo1.Lines[n+1]); 
 k:=k+1; 
 n:=n+2; 
 until (n>Memo1.Lines.Count); 
 for m:=1 to k-1 do begin 
 Memo2.Lines.Add(inttostr(mass1[m].prav)); 
 Memo3.Lines.Add(inttostr(mass1[m].lev)); 
 end; 
 
{h:=qot(mass1,n-1); 
 if (h=true) then 
 Edit1.Text:='Правильно' 
 else 
 Edit1.Text:='Неправильно';} 
end; 
 
end.