Pascal, помогите Опции

[CumbeR-C]

помогите решить задачку!
Определить минимальный элемент массива и его порядковый номер.

[Татьяна]

Народ, уважаемые форумчане! помогите пожалуйста!
есть такая задача: Вычислить сумму и разность двух заданных одномерных массивов А и В размером 5. Результат напечатать в виде двух параллельных столбцов.
сумму и разность посчитала а со столбцами делать? все что знала перепробавала ничего не получается! кто знает помогите!
вот листинг моей программы:

Program simple;
uses CRT;
const n=5;
var a,b,c,d:array[1..5]of real;
i:integer;
begin
writeln('ishodny massiv');
for i:=1 to n do
for i:=1 to n do
c[i]:=a[i]+b[i];
for i:=1 to n do
write(c[i],'');
end.
begin
for i:=1 to n do
for i:=1 to n do
for i:=1 to n do
d[i]:=a[i]-b[i];
for i:=1 to n do
writeln(d[i],'');
end;
readln
end.

может где ошибку найдете.
заранее спасибо!