Turbo Pascal 7.0

[@vror@]

Помогите решить задачу.
Даны два целочисленных массива А (6) В (6). Составить массив С, каждый элемент которого есть сумма соответствующих элементов массивов А и В. Распечатать массив С и номер максимального этого массива.
Заранее большое спасибо!!!

[fbus]

пиши в аську, сделаю...

[ROMA2PVT]

uses crt;
Const
 n=6;
Type
 a=array[1..n] of integer;
var
    i,max,l:integer;
    n1:integer;
    k:a;
    b:a;
    c:a;
    begin
clrscr;
randomize;
writeln('Исходный массив K: ');
for i:=1 to n do
    begin
     k[i]:=random(10)-5;
     write(k[i]:4);
 end;
 writeln;
 writeln('Исходный массив B: ');
 for i:=1 to n do
    begin
 b[i]:=random(10)-5;
     write(b[i]:4);
     end;
     writeln;
 for i:=1 to n do
 begin
  c[i]:=k[i]+b[i];
  end;
  max:=c[1];
   l:=1;
   For i:=1 to N do
     If c[i]>max then
       begin
         max:=c[i];
         l:=i;
       end;
  writeln;
  writeln('Результирующий массив С: ');
for i:=1 to n do
   begin
    write(c[i]:4);
   end;
   writeln;
   writeln(max,' ',l);
end.