Определить сумму элементов в каждой строке матрицы и максимальные элементы в каждой строке - Pascal - Ответ 83295

uses crt;
const n=10;//размер матрицы
type Tmas=array[1..n] of integer;//массивы
     Tmatr=array[1..n] of Tmas; //матрица
Procedure SumMax(k:integer;x:Tmatr;var sm,mx:Tmas);//процедура, в которую передаются номер строки(к) и матрица х, выдаются два массива - суммы и максимумы
var j,max:integer;
begin
for k:=1 to n do
   begin
     sm[k]:=0;max:=x[k,1];
     for j:=1 to n do
       begin
         sm[k]:=sm[k]+x[k,j];//массив сумм
         if x[k,j]>max then max:=x[k,j];//массив максимумов
         mx[k]:=max;
       end;
   end;
end;
var a:Tmatr;
    b,c:Tmas;
    i,j,f:integer;
begin
clrscr;
randomize;
writeln('Matrica A:');//создаем и выводим матрицу
for i:=1 to n do
   begin
     for j:=1 to n do
       begin
         a[i,j]:=random(20);
         write(a[i,j]:4);
       end;
     writeln;
   end;
for i:=1 to n do
SumMax(i,a,b,c); //вызываем процедуру
writeln('Summy po strokam:');
for i:=1 to n do //выводим массив сумм
write(b[i],' ');
writeln;
writeln('Maximumy po strokam:');//выводим массив максимумов
for i:=1 to n do
write(c[i],' ');
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if c[i]<c[j] then //сортируем пузырьком массив максимумов по убыванию
   begin
     f:=c[i];
     c[i]:=c[j];
     c[j]:=f;
   end;
writeln('Otsortirovannyj massiv maximalnyh elementov:');
for i:=1 to n do
write(c[i],' ');
readln
end.