lab12 Prog

program lab12;
{$APPTYPE CONSOLE}
uses profun;
var
A: matr;
X:str;
f, g: TextFile;
flag, flagA,flagX: boolean;
n, m, ii, jj: byte;
begin
AssignFile(f, ParamStr(1));
AssignFile(g, ParamStr(2));
reset(f);
rewrite(g);
writeln(g, '':15, 'Программа с модулем'); //Обр4
//ввод n и m
readln(f, n); //Обр1
if (n < 2) OR (n > Nmax) then
begin
writeln(g, 'Некорректное число строк. Задача не решалась'); //Обр12
CloseFile(f);
CloseFile(g);
Halt;
end;
readln(f, m); //Обр2
if (m < 1) OR (m > Mmax) then
begin
writeln(g, 'Некорректное число столбцов. Задача не решалась'); //Обр11
CloseFile(f);
CloseFile(g);
Halt;
end;
//ввод и вывод матрицы А
input(f,n,m,A,X); //Обр3
CloseFile(f);
writeln(g, 'Исходная матрица из ', n:1, ' строк из ', m:1, ' столбцов:'); //
output(g,n,m,X,A);
//Проверка элементов матрицы
provA(n,m,A,flagA,ii,jj);
if flagA then
begin
writeln(g, 'Некорректный элемент матрицы'); //Обр8
writeln(g, 'A[', ii, ', ', jj, '] = ', A[ii, jj]:4);
writeln(g, 'Задача не решалась');
CloseFile(g);
halt;
end;
// Проверка заданных элементов X
provX(m,X,flagX,ii);
if flagX=true then
begin
writeln(g);
writeln(g, 'Некорректный элемент X');
writeln(g, 'X[', ii, '] = ', X[ii]:4);
writeln(g, 'Задача не решалась');
CloseFile(g);
halt;
end;
//проверка сумм матрицы
proverka(n,m,A,flag);
if flag = false then
begin
sum(n,m,A,X);
writeln(g);
writeln(g, 'Полученная матрица из ', n:1, ' строк из ', m:1, ' столбцов:');//Обр 10
output(g,n,m,X,A);
end
else
writeln(g, 'сумма первых двух строк матрицы не меньше суммы последних двух');//Обр7
CloseFile(g);
end.