Обработка двумерных массивов (Dephi 7)

[Elec92]

Задание:

В матрице A(n x m) найти среднее арифметическое наименьших элементов каждого столбца

Помогите пожалуйста
сделать по простому(console application) что б решение выводило в командной строке...
ввод с клавиатуры

вот мои наброски:

program Rabota619;

{$APPTYPE CONSOLE}

uses
SysUtils,
math;

Var

i,j,m,n,s:integer; //rabo4aya peremennaya
a:array [1..10,1..10] of integer; // Massiv 1

begin

writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);

s:=0;
for i:=1 to n do begin
m:=1;
for j:=2 to n do
if a[j,i]<a[m,i] then m:=j;
s:=s+a[m,i]; end;
s:=s/n;
end; end;
writeln(s:6:3);

Readln;
end.

или

var
min, avg, w, h: integer;
result: real; {эти два оператора должны быть real, чтобы не было type mismatch}
TBL : array [1..10,1..10] of integer;

Begin
 randomize;
 for w:=1 to 10 do
  for h:=1 to 10 do
   TBL[w,h]:=random(10) ;  
 writeln('Generation complete') ; {массив генерируется случайным образом, можно заменить на ручной ввод}
 for w:=1 to 10 do
  for h:=1 to 10 do
   min:=TBL[w,1]; {пусть минимальным значением в столбце будет первая его ячейка}
   if TBL[w,h]<min then {сравниваем текущую ячейку с минимальной}
    Begin
    min:=TBL[w,h];
    avg:=avg+min;
    end;
 h=10
 result:=avg/h; {вычисляем среднее значение}
 Writeln(avg);
end.

помогите полносью написать код

[Elec92]

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

[was3110]

напиши мне, напиши

[Elec92]

хелп кто-нибудь

[Ybn2]

Сообщение от Elec92

хелп кто-нибудь

а СЕЙЧАС РАЗВЕ НЕ КОНСОЛЬ?

[Elec92]

у меня не работает, преподаватель не засчитывает

[Stilet]

i,j,m,n,s:integer; //rabo4aya peremennaya

Выкинь отсюда s. Опиши ее как Double а не как integer

end; end;
writeln(s:6:3);

Выкинь end-ы

h=10

Явно ты этот код не сам писал. Оператор присвоения в Делфи :=. И точку-запятую после почему не поставил?
readln; в конце поставь перед последним эндом

И прекращай Апать. Почитал бы лучше методички. Правильно тебя препод стращает, если ты учишься на программиста то пока ничего хорошего не показал кроме как кричать караул по пустякам.

[Elec92]

спасибо сдал, так же и понял как делать( т.е. вник)
так же сдал подпрограммы функции))) получил зачет)