Паскаль. Матрица.Блок-схема.

[d_ovod]

Здравстуйте.Помогите пожалуйста с блок-схемой. и проверьте пожалуйста написанную мной программу...Задана матрица E(N,M) N<=15,M<=20.Отпечтать номера и средние арифметические тех строк, которые начинаются с 1. Если таких строк не окажется, то выдать соответствующее сообщение.
Program z1;
var E:array[0..15,0..20]of integer;
sr,i,j,k,m,n:integer;
begin
read(n);
for i:=1 to n do
for j:=1 to m do
read (E[ i,j]);
begin
k:=0;
for i:=1 to n do
if E[i,1]=1 then
begin
k:=1;
sr:=0;
for j:=1 to m do
sr:=sr+E[i,j];
writeln('Строка ',i,' среднее=',sr/m:0:2);
end;
if k=0 then writeln('Таких строк нет!');
end;
end

[DoDge_VipeR]

а где ввод m ?
и зачем массив с 0 если вы все равно с 1 цикл гоните?

[ROMA2PVT]

ХаХ.А ему на сайбере уже сделали схему и он радостный.Вот он и думает что у него всё верно.

[SashOK1991]

Здравстуйте.Помогите пожалуйста с программой:

Найти минимальний елемент матрици A(m x n).

Вот я что то пробувал. Помогите довести до конца.

Program lab_15;
Uses Crt;
const n=4; m=4;
var a:array[1..m,1..n]of real; i,j,k:integer;
begin
window(3,2,65,25);
Textcolor(5);TextBackground(9);
clrscr;
writeln('Laboratorna robota');
writeln('Znaytu kilkist elementiv matruci rivnuh 0');
writeln('vukonav stydent hrypu KA-11');
writeln('Olexsndr');
sound(1000);delay(1000);nosound;
window(30,5,78,24);
textcolor(black);textbackground(red );
clrscr;
writeln('vvedit n ta m');
for i:=1 to m do
for j:=1 to n do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;