Обработка матриц в Паскале

var a : array [ 1.. 15, 1.. 15 ] of real;
	j, i, k,m, n : byte; b : real;
begin
//Ввод размеров матрицы.
	writeln ( ’введите m и n ’ );
readln (m, n );
//Ввод матрицы.
writeln ( ’Матрица А ’ );
for i :=1 to m do
for j :=1 to n do
read ( a [ i, j ] );
//Преобразование матрицы.
for i :=1 to m do
if ( i mod 2)=0 then {Если номер строки четный, то}
begin {упорядочить ее элементы по возрастанию.}
{Упорядочение строки матрицы методом пузырька по возрастанию.}
for k:=1 to n-1 do
for j :=1 to n-k do
if a [ i, j ] > a [ i, j +1] then
begin
b:=a [ i, j ];
a [ i, j ] : = a [ i, j + 1 ];
a [ i, j +1]:=b;
end
end
else {Если номер строки нечетный, то упорядочить ее элементы по}
{убыванию.}
{Упорядочение строки матрицы методом пузырька по убыванию.}
for k:=1 to n-1 do
for j :=1 to n-k do
if a [ i, j ] < a [ i, j +1] then
begin
b:=a [ i, j ];
a [ i, j ] : = a [ i, j + 1 ];
a [ i, j +1]:=b;
end;
//Вывод преобразованной матрицы.
writeln ( ’преобразованная матрица A ’ );
for i :=1 to m do
begin
for j :=1 to n do
write ( a [ i, j ] : 7 : 3, ’   ’ );
writeln
end
end.

function prostoe (N: integer ) : boolean;
var i : integer;
	pr : boolean;
begin
if N<1 then pr := false
else
begin
	pr := true;
	for i :=2 to N div 2 do
		if (N mod i = 0) then
		begin
			pr := false;
			break;
	end;
end;
prostoe:= pr;
end;

{Функция перевода целого числа N в четверичную систему счисления.}
function perevod4 (N: word ) : word;
	var s1, i, q, ost : word;
begin
{В переменной s1 мы будем собирать число в четверичной системе}
{счисления.}
	s1 : = 0;
{В переменной q будем последовательно хранить степени десяти; вначале}
{туда записываем 1 - десять в 0 степени, а затем в цикле будем}
{последовательно умножать q на 10.}
q : = 1;
{Перевод целого числа, пока число не станет равным 0.}
	while (N<>0) do
	begin
{Вычисляем ost - очередной разряд числа, как остаток от деления N на 4}
{(основание системы счисления).}
	ost :=N mod 4;
{Очередной разряд числа умножаем на 10 в степени i и добавляем к}
{формируемому числу s1.}
	s1 := s1+ost * q;
{Уменьшаем число N в 4 раза путем целочисленного деления на 4.}
	N1:=N1 div 4;
{Формируем следующую степень десятки.}
	q:=q * 10;
end;
//Возвращаем число в четверичной системе счисления.
	perevod := s1;
end;

program pr_6_9;
function prostoe (N: integer ) : boolean;
var i : integer;
	pr : boolean;
begin
if N<1 then pr := false
else
begin
	pr := true;
	for i :=2 to N div 2 do
		if (N mod i = 0) then
		begin
			pr := false;
			break;
		end;
end;
prostoe := pr;
end;
function perevod4 (N: word ) : word;
	var s1, q, ost : word;
begin
{В переменной s1 мы будем собирать число в четверичной системе}
{счисления.}
	s1 : = 0;
{В переменной q будем последовательно хранить степени десяти, вначале}
{туда записываем 1 - десять в 0 степени, а затем в цикле будем}
{последовательно умножать q на 10.}
q : = 1;
{Перевод целого числа, пока число не станет равным 0.}
		while (N<>0) do
		begin
{Вычисляем ost - очередной разряд числа, как остаток от деления N на 4}
{(основание системы счисления).}
		ost :=N mod 4;
{Очередной разряд числа умножаем на 10 в степени i и добавляем к}
{формируемому числу s1.}
		s1 := s1+ost * q;
{Уменьшаем число N в 4 раза путем целочисленного деления на 4.}
		N:=N div 4;
{Формируем следующую степень десятки.}
		q:=q * 1 0;
	end;
//Возвращаем число в четверичной системе счисления.
	perevod4 := s1;
end;
var S, i, j, n,m: word;
	a : array [ 1.. 2 5, 1.. 2 5 ] of word;
	p : array [ 1.. 2 5 ] of word;
begin
//Ввод размеров матрицы.
	writeln ( ’Введите размеры матрицы ’ );
	readln ( n,m);
//Ввод матрицы.
	writeln ( ’Введите матрицу A ’ );
	for i :=1 to n do
		for j :=1 to m do
			read (A[ i, j ] );
{Последовательно перебираем все строки матрицы для формирования суммы}
{простых чисел каждой строки.}
	for i :=1 to n do
	begin
//Вначале сумма равна нулю.
		S : = 0;
//Перебираем все элементы в i-й строке матрицы.
		for j :=1 to m do
//Если очередной элемент в i-й строке матрицы - простое число,
//то добавляем его к сумме.
			if prostoe (A[ i, j ] ) then s := s+A[ i, j ];
{Если в строке были простые числа, то их сумму переводим в четверичную}
{систему счисления и записываем в p[i].}
			if s >0 then p [ i ] : = perevod4 ( s )
{Если в строке не было простых чисел, то p[i]:=0.}
		else p [ i ] : = 0;
	end;
//Вывод сформированного массива P.
	writeln ( ’Массив P ’ );
	for i :=1 to n do
		write (P [ i ], ’   ’ );
	writeln;
end.