Исправте ошибку.Надо найти минимальный элемент массива!!!

[viknik]

Помогите исправить прогу. Надо найти минимальный элемент массива!!!

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=5;m=5;
  var a:array [1..n,1..m] of integer;
  i,j,min :integer;
begin
       randomize;
       for i:=1 to n do
       for j:=1 to m do
  begin
       a[i,j]:=random(100);
  end;
       for i:=1 to n do
       for j:=1 to m do
  begin
       min:=a[i,j];
  end;
       writeln;
       writeln (' Masiv a: ');
       writeln;
       for i:=1 to n do
  begin
       for j:=1 to m do
       write(a[i,j]:5);
       writeln;
  end;
       writeln;
       writeln ('minimalnui element:   ',min);
       readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[VadikV]

вот этот вот кусок:

for i:=1 to n do
for j:=1 to m do
begin
min:=a[i,j];
end;

замени на вот этот:

min:=a[1,1];
for i:=1 to n do
for j:=1 to m do
begin
   if min > a[i,j] then min:=a[i,j];
end;