Задача по ТП.

[GE076]

Уже разобрался.

[GE076]

Вот что у меня получилось в итоге... посмотрите пожалуйста, так ли это?
вроде бы работает..

Program ff;
uses crt;
Type matr=array[1..3,1..3] of real;
elem=array[1..3] of real;
Var a,b,c:matr;
maximum:elem;
buf:real;
o,i,j:integer;
f:text;
Procedure Vvod(var Q:matr;n,m:integer;name:string;d:char);
Begin
Assign (f,name);
Reset (f);
For i:=1 to n do
For j:=1 to m do
Read (f, Q[i,j]);
Close (f);
	Writeln ('Matrica ',d);
	for i:=1 to n do
	begin
	for j:=1 to m do
	Write (Q[i,j]:6:2, ' ');
	Writeln;
	end;
  end;



Function maxel(Z:matr;n,m:integer):real;
var max:real;
begin
max:=Z[1,1];
for i:=1 to n do
for j:=1 to m do
if max < Z[i,j] then max:=Z[i,j];
maxel:=max;
end;


	Begin
	clrscr;
	Vvod(A,2,2,'a.pas','A');
	Vvod(B,3,3,'b.pas','B');
	Vvod(C,2,2,'c.pas','C');
maximum[1]:=maxel(A,2,2);
maximum[2]:=maxel(B,3,3);
maximum[3]:=maxel(C,2,2);
Writeln;
Writeln ('X=',maximum[1]:6:2);
Writeln ('Y=',maximum[2]:6:2);
Writeln ('Z=',maximum[3]:6:2);
Assign (f,'res.pas');
Rewrite (f);
Writeln (f,'X=',maximum[1]:6:2);
Writeln (f,'Y=',maximum[2]:6:2);
Writeln (f,'Z=',maximum[3]:6:2);
Close(f);
o:=3; {metod puzirka}
for j:=1 to o-1 do
for i:=1 to o-j do
if maximum[i]<maximum[i+1] then 
begin
buf:=maximum[i];
maximum[i]:=maximum[i+1];
maximum[i+1]:=buf;
end;
Writeln;
Writeln ('Sortirovka po ubyvaniu:');
Writeln ('1.',maximum[1]:6:2);
Writeln ('2.',maximum[2]:6:2);
Writeln ('3.',maximum[3]:6:2);
Assign (f,'res.pas');
Append (f);
Writeln(f);
Writeln (f,'Sortirovka po ubyvaniu:');
Writeln (f,'1.',maximum[1]:6:2);
Writeln (f,'2.',maximum[2]:6:2);
Writeln (f,'3.',maximum[3]:6:2);
Close(f);


end.