Elizaveta_1994

Не получается блог схему составить препад постоянно валит говорит что неправильно я составляю, вот сижу и голову ломаю, однокурсники помогали делали и всё неправильно, ребят помогите пожалуйста

program proga2;
uses crt;
var e:array[1..20, 1..10]of integer;
n,m,i,j,max,min,b,maxn,minn:integer;
begin
clrscr;
randomize;
writeln('vvedite N, M');
readln(n,m);
if (n<=20)and(m<=10)then begin
for i:=1 to n do begin
for j:=1 to m do begin
e[i][j]:=random(31);
write(e[i][j]:2,' ');
end;
writeln;
end;
for i:=1 to n do begin
min:=e[i][1];
max:=e[i][1];
maxn:=1;
minn:=1;
for j:=2 to m do begin
if e[i][j]>max then begin
max:=e[i][j];
maxn:=j;
end;
if e[i][j]<min then begin
min:=e[i][j];
minn:=j;
end;
end;
if (maxn=m)and(minn=1)then begin
b:=e[i][1];
e[i][1]:=e[i][m];
e[i][m]:=b;
end
else begin
if (maxn<>m)then begin
b:=e[i][m];
e[i][m]:=min;
e[i][minn]:=b;
b:=e[i][1];
e[i][1]:=max;
e[i][maxn]:=b;
end
else begin
b:=e[i][1];
e[i][1]:=max;
e[i][maxn]:=b;
b:=e[i][m];
e[i][m]:=min;
e[i][minn]:=b;
end;
end;
end;
writeln('novii massiv');
for i:=1 to n do begin
for j:=1 to m do begin
write(e[i][j]:2,' ');
end;
writeln;
end;
end
else writeln('nedopustimie znachenaja');
readln;
end.


program proga1;
uses crt;
var
e:array[1..25] of integer;
i,c,p:integer;
begin
clrscr;
c:=0;
writeln('elementi massiva');
for i:=1 to 25 do begin
e[i]:=random(30)+1;
if e[i]>c then begin
c:=e[i];
p:=i;
end;
write(e[i],' ');
end;
writeln;
writeln('maksimalmii element massiva=',c);
writeln('ego nomer ',p);
readln;
end.

Serega_490101

Программа №1


---------- Добавлено в 17:05 ---------- Предыдущее сообщение было написано в 15:17 ----------

Программа №2

Elizaveta_1994

Serega_490101, Афигеть капец я ошибалась теперь понимаю почему Наталья Петровна меня валила я ей блог схему совсем другую показывала, надеюсь блог схема правильная и на этот раз она никак не прикапается)
Спасибо вам Сергей* если блог схема окажется правильной буду всегда вас помнить кто меня очень сильно выручил)