Нужно сделать блок-схему и написать программу. получить квадратную матрицу 1111 1001 1001 1111

//pascal abc.net v3.0 сборка 1111 const   n=10; var   ma: array[1..n,1..n] of integer;   min,mini,minj,i,j: integer; begin min: =2147483647;   randomize;   writeln('matrix: ');     for i: =1 to n do     begin;     writeln;     for j: =1 to n do       begin;       ma[i,j]: =random(300);       write(ma[i,j]: 4);       if min> ma[i,j] then         begin;         min: =ma[i,j];         mini: =i;         minj: =j;         end;       end;     end;   writeln;   write('строка: ',mini,' столбец: ',minj); end.

1. var  s: string;   i: integer; begin  write('введите строку ');   readln(s);   for i: = 1 to length(s) do    if ((s[i]='о')or(s[i]='o'))and((i mod 2) = 0) then s[i]: ='и';   writeln(s);   end.     2.  var  s: string;   i,j: integer; begin  write('введите строку ');   readln(s);   s: =s+' ';   for i: = 1 to length(s) do    if (s[i]='в')and(s[i+1] = 'а') then begin s[i]: ='к'; for j: =(i+1) to (length(s)-1) do s[j]: =s[j+1]; end;   writeln(s);   end.