Одномерные массивы. Написать процедуру поиска минимального элемента

[3Doleg]

Даны три одномерные массивы.Составить программу формирования одномерного вектора D, элементами которого являются отличные от нуля минимальные элементы по модулю заданных массивов.Поиск минимального элемента в абсолютном значение выполнить в процедуре.

Код Pascal

program a2;
uses crt;
const n = 100;
var a, b, c: array[1..n] of integer;
  i, j, k, ddd: integer;
  d: array[1..n] of integer;
  min: real;

procedure vek(h, g, f, dd: integer);
var n1: integer; begin
  min := 1000;
  for n1 := 1 to n do
    if (a[h] < min) and (a[h] <> 0) and (b[g] < min) and (b[g] <> 0) and (c[f] < min) and (c[f] <> 0) then min := d[dd];
end;

begin clrscr;
  writeln('vvedite dluny massuvy A: ');
  read(a[i]);
  writeln('vvedite dluny massuvy B: ');
  read(b[j]);
  writeln('vvedite dluny massuvy C: ');
  read(c[k]);
  for i := 1 to n do
    for j := 1 to n do
      for k := 1 to n do
      begin
        a[i] := random(10);
        b[j] := random(10);
        c[k] := random(10);
        write('a[i]');
        read(a[i]);
        write('b[j]');
        read(b[j]);
        write('c[k]');
        read(c[k]);
      end;
  for i := 1 to n do
    for j := 1 to n do
      for k := 1 to n do
      begin
        vek(i, j, k, ddd); d[ddd] := min;
        writeln('sformirovanui massuv D', d[ddd]: 8: 4)
      end
end.

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

___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.

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

Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

всё не так...
во-первых, длины массивов Вы вводите вообще не правильно! (нужно добавить три переменные и считывать длину массивов в отдельные переменные)

во-вторых, заполнение массивов - это кошмар! Зачем.. нет, вот так ЗАЧЕМ вы их вводите во вложенных циклах?!!!!!
нужно так:

  writeln('vvedite dluny massuvy A: ');
  readln(LenA);
  for i := 1 to LenA do
     a[i] := random(101) - 50; { заполним случайными числами от -50 до 50 }

  writeln('vvedite dluny massuvy B: ');
  readln(LenB);
  for i := 1 to LenB do
     b[i] := random(101) - 50; { заполним случайными числами от -50 до 50 }

ну и процедура поиска минимального тоже никуда не годится...