не компилирует

[KpecTHbIi]

помогите
вот задача :"Определить номер наименьше1 по абсолютной величине разности Ai - Ci."


а вот что я набросал

program ai_ci;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
Type_arr= array[1..10] of integer;
var
a,c : type_arr;
N : integer;
q,m,i : integer;

procedure FilledConstNumbers(var a: type_arr; var c: type_arr; var N :integer);
const
a_const :type_arr = (1, 2, 3, 6, 5, 6, 7, 8, 3, 0);
c_const :type_arr = ( 0, 2, 4 ,5, 7, 9, 2, 8, 3, 10);
begin
N:=10;
a := a_const;
c := c_const;

end;

procedure FilledWithRadomNumbers( var a:type_arr; var c: type_arr; var N:integer);
var
i:integer;
begin
randomize;
write('Quality of Elements(1..10) ? ');
readln(N);
for i:= 1 to N do
a[i] := 20 - random(30);
for i:= 1 to N do
c[i] := 20 - random(30);
end;

procedure FilledFromKeybord(var c: type_arr; var a: type_arr; var N :integer);
var
i : integer;
begin
write('Quantity of elements(1..) ? ');
readln(N);
for i:=1 to N do
begin
write('a[',i,']=');
read(a[i]);
end;
begin
for i:=1 to N do
write('c[',i,']=');
read(c[i]);
end;
end;


function indx(const a,c: type_arr; N:integer): integer;
var
i : integer;
max :integer;
begin
max:=0 ;
for i :=1 to 10 do
if a[i] - c[i]< max then max:=i;
indx:= max;
end;

begin
writeln('How to fill array?');
writeln('1. As typed constants.');
writeln('2. Whith random numbers.');
writeln('3. From keyboard.');
write('Enter the number of variant:');
readln(q);

case q of
1: FilledConstNumbers(a,c,N);
2: FilledWithRadomNumbers (a,c,N);
3: FilledFromKeybord(a,c,N);
end;


if q <> 3 then
for i := 1 to N do
writeln('a[', i, '] = ', a[i]);
writeln('c[', i, '] = ', c[i]);

begin
writeln('How to fill array?');
writeln('1. As typed constants.');
writeln('2. Whith random numbers.');
writeln('3. From keyboard.');
write('Enter the number of variant:');
readln(m);

case m of
1: FilledConstNumbers(a,c,N);
2: FilledWithRadomNumbers (a,c,N);
3: FilledFromKeybord(a,c,N);
end;


if m <> 3 then
for i := 1 to N do
writeln('a[', i, '] = ', a[i]);
writeln('c[', i, '] = ', c[i]);
writeln('Number of element that has the smallest value of multiplying a[i]-c[i] is ', indx(a, c, N));

readln;
readln;







end.

[vovk]

Begin
без
end;

это чтоб скомпилировалось.
И похоже что в паре мест, в циклах For надо добавить обёртку
Begin

end;

Ну это при беглом осмотре, в решение не вдумывался.

[Camaro Chevelle]

отступы надо использовать, тогда всё ясно станет