Помогите найти ошибку!

[junkie]

Добрый День.
Писал программу,не работает,вот листинг:
даны три квадратные действительные матрицы 10 порядка.найти ту из них,у которой наименьший след(сумма диагональных элементов).

program mins;
uses crt;
var m,n,o:array[1..10,1..10] of integer;
    i,j,sledm,sledn,sledo,minsled:integer;
begin
clrscr;
sledm:=0;
randomize;
for i:=1 to 10 do
for j:=1 to 10 do begin
m[i,j]:=random(10);
if i=j then sledm:=sledm+m[i,j];
end;
sledn:=0;
randomize;
for i:=1 to 10 do
for j:=1 to 10 do begin
n[i,j]:=random(10);
if i=j then sledn:=sledn+n[i,j];
end;
sledo:=0;
randomize;
for i:=1 to 10 do
for j:=1 to 10 do begin
o[i,j]:=random(10);
if i=j then sledo:=sledo+o[i,j];
end;
if (sledm<sledn) and (sledm<sledo) then minsled:=sledm;
if (sledn<sledm) and (sledn<sledo) then minsled:=sledn;
if (sledo<sledn) and (sledo<sledm) then minsled:=sledo;
writeln('minsled=');
read(minsled);
readln;
end.

[junkie]

Заранее спасибо.

[Sazary]

program mins;
uses crt;
var m,n,o:array[1..10,1..10] of integer;
    i,j,sledm,sledn,sledo,minsled:integer;
begin
clrscr;
randomize;

sledm:=0;
for i:=1 to 10 do
 for j:=1 to 10 do
  begin
  m[i,j]:=random(10);
  if i=j then sledm:=sledm+m[i,j];
  end;

sledn:=0;
for i:=1 to 10 do
 for j:=1 to 10 do
  begin
  n[i,j]:=random(10);
  if i=j then sledn:=sledn+n[i,j];
  end;

sledo:=0;
for i:=1 to 10 do
 for j:=1 to 10 do
  begin
  o[i,j]:=random(10);
  if i=j then sledo:=sledo+o[i,j];
  end;

if (sledm<sledn) and (sledm<sledo) then minsled:=sledm;
if (sledn<sledm) and (sledn<sledo) then minsled:=sledn;
if (sledo<sledn) and (sledo<sledm) then minsled:=sledo;
writeln('minsled=',minsled);

readln;
end.

randomize; нужно писать тольк один раз - в начале программы.

writeln('minsled=');
read(minsled);

Вы не выводите мин. след, а вводите.

Добавлю еще только, что матрицы хорошо бы выводить (иначе как проверить? )