Строки и Массивы. Pascal. 4 задачи

[Sm1Le]

Сам знаешь номер =)

program Project2;

Uses crt;
var 
mas:array[1..6,1..9] of integer;

x,i,j,max,min,max_i,min_i:integer;
begin
clrscr;
randomize;
for i:=1 to 6 do
begin
	for j:=1 to 9 do 
		begin
			
		{	read(mas[i,j]);  }
    mas[i,j]:=random(111);
    write(mas[i,j]);
    write(' ');
		end;
writeln;
end;
max:=mas[1,1];max_i:=1;min:=mas[1,1];min_i:=1;
for i:=1 to 6 do 
begin
	for j:=1 to 9 do 
		begin
			if max<mas[i,j] then 
				begin
					max:=mas[i,j];
					max_i:=i;
				end
			else
				begin
					if min>mas[i,j] then 
						begin
							min:=mas[i,j];
							min_i:=i;
						end;
				end;
		end; 

end;
writeln;
writeln('max:',max,' Ha CTPoKe :',max_i);
writeln('min:',min,' Ha CTPoKe :',min_i);
writeln;

if min_i<>max_i then 
	begin
		for j:=1 to 9 do 	
			begin
				x:=mas[max_i,j];
				mas[max_i,j]:=mas[min_i,j];
				mas[min_i,j]:=x;
			end;
	end;
writeln;writeln;
for i:=1 to 6 do 
begin
	for j:=1 to 9 do 
		begin
			
			write(mas[i,j]);
			write(' ');
		end; 
writeln;
end;
readln;

end.

[Naper214]

спасибо большое еще раз!!!!!.
извини что напряг....