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

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.