Обработка числовых и символьных массивов

Program opr_poryadka;
uses crt;
const line=50;
      stol=30;
type mass=array[1..line, 1..stol] of integer;
     ms=array[1..stol] of integer;
var a, b: mass; (*massiv*)
     s: ms; (*summa elementov*)
    i, j, n, m: integer;
begin clrscr;
      writeln('Vvedite razmeri matrici');
      writeln('n - kol-vo strok, m - kol-vo stolbcov');
      read(n,m);
      for i:=1 to n do
          for j:=1 to m do
          begin readln(a[i,j]);
          end;
      writeln('Ishodnaya matrica');
      for i:=1 to n do
          begin for j:=1 to m do
                write(a[i,j]:5);
                writeln
          end;
          for i:=1 to n do (*dlya kaghdoj stroki*)
       for j:=1 to m do (*summiruem elementi 1j stroki*)
          begin
          if (a[i,j]<0) and (a[i,j] mod 2=0) then
          s[i]:=s[i]+a[i,j];

program Project2;
 
const ln=50;
        st=60;
var mass:array[1..ln, 1..st] of integer;
    i,j,k,line,stol,vrem1,vrem2,vrem:integer;
begin
    Write('Line= Stol=');
    ReadLn(line, stol);
     for i:=1 to line do
     for j:=1 to stol do
       begin
          Write('mass[',i,',',j,']=');
          ReadLn(mass[i,j]);
       end;
    vrem1:=0;
    vrem2:=0;
     for i:=1 to line-1 do
     for j:=1 to line-1 do
       begin
           for k:=1 to stol do
            if (mass[j,k]<0) and ((mass[j,k] mod 2)=0) then
             vrem1:=vrem1+mass[j,k];
           for k:=1 to stol do
            if (mass[j+1,k]<0) and ((mass[j+1,k] mod 2)=0) then
             vrem2:=vrem2+mass[j+1,k];
           if vrem1<vrem2 then
            begin
              for k:=1 to stol do
                begin
                   vrem:=mass[j,k];
                   mass[j,k]:=mass[j+1,k];
                   mass[j+1,k]:=vrem;
                end;
            end;
          vrem1:=0;
          vrem2:=0;
       end;
 
     for i:=1 to line do
     for j:=1 to stol do
       begin
         if j<>stol then
          Write(mass[i,j],' ')
         else
          WriteLn(mass[i,j]);
       end;
    ReadLn;
end.

Program opr_poryadka;
uses crt;
const line=50;
      stol=30;
var a:array[1..line,1..stol] of integer; (*massiv*)
    s:integer; (*summa elementov*)
    i,j,n,m,p,t: integer;
begin
clrscr;
repeat
write('Vvedite kol-vo strok n=');readln(n);
write('Vvedite kol-vo stolbcov m=');readln(m);
until (n>0)and(n<=line)and(m>0)and(m<=stol);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
readln;
clrscr;
writeln('Ishodnaia matrica:','Summa':m*5-9);
for i:=1 to n do    
  begin
    s:=0;
    for j:=1 to m do
    if (a[i,j]<0)and(a[i,j] mod 2=0) then 
    s:=s+a[i,j];   {сумма отрицательных четных по строкам}
    a[i,m+1]:=s;  {вставляем сумму в матрицу лишним столбцом справа}
  end;
for i:=1 to n do
  begin
    for j:=1 to m+1 do
    if j=m+1 then write(a[i,j]:8) {выводим последний столбец с суммами с большим отчтупом}
      else write(a[i,j]:5);  {остальные столбцы обычно}
      writeln;
  end;
writeln;
for i:=1 to n-1 do           {сортировка строк}
for p:=1 to n-1 do
if a[p,m+1]>a[p+1,m+1] then {по возрастанию сумм (последний столбец)}
   begin
     for j:=1 to m+1 do
       begin
        t:=a[p,j];a[p,j]:=a[p+1,j];a[p+1,j]:=t; {сортируем все элементы в других столбцах, строки переставляются}
       end;
   end;
writeln('Sortirovka strok:','Summa':m*5-8);
for i:=1 to n do
  begin
    for j:=1 to m+1 do
    if j=m+1 then write(a[i,j]:8) {такой же вывод}
      else write(a[i,j]:5);
      writeln;
  end;
readln
end.

uses crt;
const sh_str=60;
var s:array[1..20] of string;
    i,n,j:integer;
begin
clrscr;
repeat
write('Введитите количество строк:');
readln(n);
until (n>=1)and(n<=20);
writeln('Введите ',n,' строк, длиной не более 50 символов,содержащих хотя бы 1 пробел:');
for i:= 1 to n do
repeat
  readln(s[i]);
until (length(s[i])<=50)and(pos(' ',s[i])>0);
{проверяем строки на соответствие по длине и наличию пробела}
for i:=1 to n do
   begin
     j:=1;{если j=1 заканчиваем}
     while Length(s[i])<sh_str do{пока строка меньше заданного размера}
     if (j>1) then {если j>1, то вставляем пробелы за пробелами}
       begin
        if (s[i][j]=' ') and (s[i][j+1]<>' ') then Insert(' ',s[i],j);
        Dec(j) {после каждой вставки уменьшаем j}
       end
     else j:=Length(s[i])-1;{изначально j на 1 меньше длины строки
     короче увеличиваются пробелы, увеличивается длина строки,
     уменьшается "запас" пробелов}
     writeln(s[i]);
   end;
readln
end.