Задача. Массив.

[ViNcHeStEr]

Задана матрица К(8,8). Поменять местами элементы строки с максимальной суммой элементов и элементы второго столбца.
===========
Наверное я много чего лишнего написал в программе, но вот что я сделал (делал в консольном Дельфи):

program m1;

{$APPTYPE CONSOLE}

uses
SysUtils;
const
n=8;
type
mas=array[1..n,1..n] of integer;
mas2=array[1..n] of integer;
var
m:mas;
m2:mas2;
i,j,k,a,b:integer;
procedure rand;
begin
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
m[i,j]:=random(10);
write(m[i,j]);
end;
writeln;
end;
end;
procedure vivod;
begin
for i:=1 to n do begin
for j:=1 to n do begin
write(m[i,j]);
end;
writeln;
end;
end;
procedure summa;
begin
for i:=1 to n do begin
a:=0;
for j:=1 to n do begin
a:=a+m[i,j];
end;
writeln('Summa ',i,' stroki= ',a);
writeln;
end;
vivod;
end;
procedure sort;
begin
for i:=1 to n-1 do begin
a:=0;
b:=0;
for j:=1 to n do begin
m2[i]:=m2[i]+m[i,j];
end;
end;
end;
procedure sort2;
begin
for i:=1 to n-1 do begin
for j:=1 to n do begin
if m2[i]>m2[i+1] then
begin
b:=m[i,j];
m[i,j]:=m[i+1,j];
m[i+1,j]:=b;
end;
end
end;
vivod;
end;
procedure vivodM2;
begin
for i:=1 to n do begin
writeln(m2[i]);
end;
end;
begin
rand;
writeln;
summa;
writeln;
sort;
writeln;
vivodM2;
writeln;
sort2;
readln;
end.

[puporev]

Написано много лишнего, а то что не лишнее, неправильно.
Вот переделал, старался сохранить Ваш стиль.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=8;
type
mas=array[1..n,1..n] of integer;
var
m:mas;
k:integer;

procedure Vvod;
var i,j:integer;
begin
randomize;
for i:=1 to n do 
    begin
      for j:=1 to n do
        begin
		      m[i,j]:=random(10);
    		  write(m[i,j]:3);
    		end;
      writeln;
	  end;
end;	

procedure summa(var imax:integer);
var i,j,max,a:integer;
begin
max:=0;imax:=1;
for i:=1 to n do
   begin
     a:=0;
     for j:=1 to n do
	     begin
         a:=a+m[i,j];
    	 end;
     if a>max then
        begin
          max:=a;
          imax:=i;
		    end;
   end;
writeln('Max summa v stroke ',imax);
end;
procedure sort(imax:integer;var m:mas);
var i,x:integer;
begin
for i:=1 to n do
   begin
     x:=m[imax,i];
	   m[imax,i]:=m[i,2];
	   m[i,2]:=x;
   end;
end;

procedure vivod;
var i,j:integer;
begin
for i:=1 to n do
   begin
     for j:=1 to n do
	   write(m[i,j]:3);
     writeln;
   end;
end;

begin
Vvod;
writeln;
summa(k);
writeln;
sort(k,m);
writeln;
vivod;
readln;
end.

[ViNcHeStEr]

Спасибо большое!!!