2 Задачи - 1 курс

uses crt;
var a,b:array[1..50,1..50] of byte;
    m,n,i,j,k,l:byte;
begin
clrscr;
randomize;
write('m=');readln(m);
write('n=');readln(n);
writeln('Ishodnoe pole:');
for i:=1 to m do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(2);{ноли и единицы}
        write(a[i,j]:3);
      end;
    writeln;
  end;
writeln;
for i:=2 to m-1 do{проверяем все кроме крайних}
for j:=2 to n-1 do
if a[i,j]=1 then{если непрозрачный}
   begin
    k:=0;
    for l:=j-1 downto 1 do{смотрим влево}
    if a[i,l]=1 then{если нашли непрозрачный}
      begin
        k:=k+1;{считаем}
        break;{в эту сторону больше не ищем}
      end;
    for l:=j+1 to n do{то же вправо}
    if a[i,l]=1 then
      begin
        k:=k+1;
        break;
      end;
    for l:=i-1 downto 1 do{вверх}
    if a[l,j]=1 then
      begin
        k:=k+1;
        break;
      end;
    for l:=i+1 to m do{вниз}
    if a[l,j]=1 then
      begin
        k:=k+1;
        break;
      end;
    if k<4 then b[i,j]:=0 {если не все стороны перекрыты, записывем на это место ноль}
    else b[i,j]:=a[i,j];{иначе оставляем то что было}
  end;
if(i=1)or(i=m)or(j=1)or(j=n) then b[i,j]:=0;{крайние строки и столбцы обнуляем}
writeln('Rezultat:');
for i:=1 to m do
  begin
    for j:=1 to n do
    write(b[i,j]:3);
    writeln;
  end;
readln
end.