procedure vvod (b: TStringGrid;  i,j:integer);
BEGIN
  if a[i+1,j+1]='+' then
     begin
       showmessage ('На жаль, Ви програли...');
       for i:=0 to s1-1 do for j:=0 to s2-1 do
       b.Cells[i,j]:=a[i+1,j+1]
     end
  else step(b,i,j)
END;