Люди помогите в проге есть ошибка, нужно ее исправить, завтра сдавать край, пишите сегодня до 0:00.
Очень нужно..
Задание
Заполнить два массива X(5*6) и Y(5*6) числами хранящимися в тестовом файле. Составить процедуру обработки массива, согласно варианту задания и использовать ее в основной программе для работы с массивом X,Y.

Вар.10
Найти сумму элементов в каждой строке и переставить строки матрицы соответственно возрастанию этих сумм(для каждой матрицы).

Program var10;
type mas=array[1..5,1..6] of integer;
var x,y:array[1..5,1..6] of integer;
z:array[1..6] of integer; t:text;
procedure proca(a:mas);
var q:mas;sum:real; begin sum:=0; repeat
for j:=1 to 6 do
sum:=q[i,j]+sum;
z[i]:=sum; i:=i+1;
until (i>=5) and (j>=6); repeat
for i:=2 to 6 do begin
if z[i-1]<z[i] then max:=i;
z[i]:=-1000; end;
for j:=1 to 6 do
a[max,j]:=q[i,j]; i:=i+1;
until i>=5;
end;
Begin
Assign(t,’c:\figures.txt’);
Reset(t);
For i:=1 to 5 do
For j:=1 to 6 do
Read(t,x[i,j] );
Proca(x[i,j]);
For i:=1 to 6 do
Writeln(x[i,j],’_’);
For i:=6 to 10 do
For j:=7 to 12 do
Read (t, y[i,j]);
Proca(y[i,j]),’_’);
Close(t);
End.