Нарисовать блок схему к задаче Паскаль

[gigaman]

program ZAD4;
uses wincrt;
var
V:array[1..100,1..100] of integer;
m,n, i,j,k,is, ic, cmin,cmax: integer;
begin
write('Введите размерность массива n> '); readln(n);
{ввід даних в масив}
for i:= 1 to n do
for j:= 1 to n do
begin
write('V[',i,',',j,']= '); readln(V[i,j]);
end;

for i:=1 to n do { по рядках }
begin
{ пошук мінімального елемента в рядку i}
ic:=1; cmin:=v[i,1];
for k:=2 to n do
if (v[i,k]<cmin) then
begin
cmin:=v[i,k]; ic:=k; {мін в стовпці ic}
end;
{ пошук максимального елемента в стовці ic}
is:=1; cmax:=v[1,ic];
for k:=2 to n do
if (v[k,ic]>cmax) then
begin
cmax:=v[k,ic]; is:=k;
end;
if(cmax=cmin) then writeln('значення=',cmin,'в стовпці',ic,'в рядку',is);
end;
readln;
end.

Помогите пожалуста

[puporev]

Напиши пожалуйста подробное условие этой задачи, иначе некоторые моменты трудно понять. Если сможешь, по русски.

[Air]

Я там некоторые операторы вместе записал их надо отдельно, друг за другом, если что-то не понятно пиши.

[gigaman]

Огромное тебе спасибо