Паскаль. найти суммму наименьших членов массивов

[Шико]

Помогите пожалуйста с задачей - даны 2 массива по 6 элементов в каждом, найти суммму наименьших членов массивов. Заранее признателен.

[Карась]

Ха...Ха.....Ха..... И где задают такие (непобаюсь этого слова) трудные задачи?

Var A, B : Array [1..6] of Integer;
      i, Min_A, Min_B : Byte;

Begin
Randomize;
For i := 1 To 6 Do
  Begin
    A[i] := Random(10);
    B[i] := Random(10);
    Write(A[i], ' ', B[i]);
    Writeln;
  End;

Min_A := A[1];
For i := 2 To 6 Do If A[i] < Min_A Then Min_A := A[i];

Min_B := B[1];
For i := 2 To 6 Do If B[i] < Min_B Then Min_B := B[i];

Writeln (Min_A + Min_B);

Readln;
End.

[Шико]

Спасибо) Правда переделать мне придется - массивы самому вводить надо, а не рандомно. А обратился сюда потому что дома что-то косячит. Ошибку нашел свою.

[Rusl92]

Во как вводить с клавы:
for i:=1 to 6 do
begin
write('Введите ',i,' элемент');
readln(a[i]);
end;