Решение задачи с использованием процедур и функций с параметром и без

program matrica;
uses crt;
var
 E:array[1..6,1..5] of integer;
 k,s,st,i,j: integer;
procedure rezultat;
 var
  i,j:integer;
  begin
    writeln('Результатные данные: ');
    writeln;
     for i:=1 to s do
      begin
       for j:=1 to st do
        write(E[i,j]:4);
        writeln;
        end;
        writeln;
     end;
begin
 clrscr;
 window(7,3,75,25);
   writeln('ВВедите кол-во строк в матрице: ');
  readln(s);
 writeln('ВВедите кол-во столбцов в матрице ');
  readln(st);
 begin
  clrscr;
  writeln('Введите элементы в матрице');
  for i:=1 to s do
  for j:=1 to st do
   begin
    write('e[',i,',',j,']=');
    readln(e[i,j]);
   end;
 end;
   clrscr;
   writeln('Исходная матрица: ');
   writeln;
    for i:=1 to s do
     begin
      for j:=1 to st do
       write(e[i,j]:4);
       writeln;
     end;
     writeln;
    writeln('Промежуточные данные: ');
    writeln;
  for i:=1 to s do
   begin
    k:=0;
     for j:=1 to St do
      if E[i,j]>0 then
       inc(k);
      if k*2>st then
       for j:=1 to st do
        if E[i,j]<=0 then
        E[i,j]:=1;
        writeln('В ',i,'- строке',k,' положительных чисел ');
    end;
    writeln;
 
    writeln;
       readkey;
 
       rezultat;
 
       readkey;
readln;
end.