Как описать действия?

program Project1;
 
const max=10;
// Запись текста в файл
//а - имя перезаписываемого файла, b - записываемый текст 
procedure zapis(a, b: string);
var f:text; // Файловая переменная
begin
assign(f,a); // Связывание файловой переменной с именем файла
rewrite(f);  // Перезапись или создание файла (открытие на запись)
Write(f,b);// Записать строку в файл
close(f);    // Закрытие файла
end; 
 
var a:array[1..max,1..max] of real;
    m,n,d,i,j,ii,jj,iii,jjj,kp,ko,q:byte;
    s:string;
begin
randomize;
s:='';
repeat
write('Количество строк от 2 до ',max,' m=');
readln(m);
until m in [2..max];
repeat
write('Количество столбцов от 2 до ',max,' n=');
readln(n);
until n in [2..max];
if m<n then d:=m else d:=n;//максимальный размер квадратов
s:=s+'Матрица'+#13#10;
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+10*random;
    
    s:=s+floattostr(a[i,j])+' ';
   end;
 s:=s+#13#10;;
 end;
q:=0;
for i:=1 to m-1 do
for j:=1 to n-1 do
for ii:=i+1 to m do
for jj:=j+1 to n do
if (ii-i in [1..d])and(ii-i=jj-j) then
 begin
  kp:=0;
  ko:=0;
  for iii:=i to ii do
  for jjj:=j to jj do
  if a[iii,jjj]>0 then inc(kp)
  else if a[iii,jjj]<0 then inc(ko);
  if kp=ko then
   begin
    q:=1;
  s:=s+'Подматрица ['+inttostr(i)+','+inttostr(j)+']-['+inttostr(ii)+','+inttostr(jj)+']'+#13#10;
   end;
 end;
if q=0 then s:=s+'Подматриц по условию нет'+#13#10;
zapis('1.txt', s);
end.