program TimsoNhonhatHangCot;
var i,j,hang,ln : integer;
    x   : array[1..100, 1..100] of integer;
begin

for i:=1 to 3 do
    for j:=1 to 3 do
    begin
    write('x[',i,',',j,']');
    readln(x[i,j]);
    end;

writeln;
writeln(' day cua chung ta day ');
for i:=1 to 3 do
    begin
    for j:=1 to 3 do
    write(x[i,j] : 3);
    writeln;
    end;

writeln;
write(' ban muon tim GTLN cua hang so may ');
readln(hang);
{ban đầu em viết thế này}
{for i:=1 to 3 do
    if hang = i then ln:=x[i,1];}

{if ln = x[i,1] then}
{sau đó thấy không hợp lí em viết thế này là đúng
em mún hỏi cách viết trên có gì sai ? }
i:=hang;
ln:=x[i,1];
for j:=2 to 3 do
    if ln < x[i,j] then ln:=x[i,j];

    writeln;
    write('gia tri lon nhat cua hang so ',i,' la ', ln);
readln;
end.

{tu viet lay phan nhap du lieu nhe}
	start:=1;{khởi tạo giá trị đầu dãy con}
	l:=0;
	start1:=1;
	l1:=0;{Xong quá trình khởi tạo}
	for i:=1 to n - 1 do {thực hiện duyệt toàn bộ dãy}
		begin
			if a[i] > a[i+1] then {kiểm tra xem dãy con đã kết thúc chưa}
				begin
					if l1 > l then {kiểm tra xem dãy con mới có dài hơn dãy đã lưu}
						begin
							l:= l1;{Xác lập dãy con dài nhất trong thời điểm kiểm tra}
							start:= start1;
						end;
					l1:= 0;{Đưa thông số dãy con tiếp theo về mặc định}
					start1:= i + 1;
				end
			else
				Inc(l1);{tăng giá trị biến l1}
                                  {Tăng độ dài dãy con thêm 1}
		end;	{In du lieu}