Question

Ребят, нужна flow форма, буду очень признателен
program pr;

label cyc;

const

sizeX = 4;

sizeY = 3;

var

matrix: array[1..sizeY, 1..sizeX] of integer;

i, k: integer;

begin

writeln('Чтение элементов массива');


for i := 1 to sizeY do for k := 1 to sizeX do readln(matrix[i, k]);

writeln('Исходный массив:');


for i := 1 to sizeY do
begin

for k := 1 to sizeX do
begin

write(matrix[i, k]);

end;

writeln('');

end;


writeln('Подходящие строки: ');


for i := 1 to sizeY do
begin

for k := 2 to sizeX do
begin

if matrix[i, k] >= matrix[i, k - 1] then goto cyc;

end;

writeln(i);

cyc:

continue;

end;

end.