Задача: дано два массива одинаковой длинны. Написать рекурсивную функцию, которая сравнит элементы массива и если все сошлось, то true, а если нет - false. Программа работает неправильно. В данном случае я попробовал заменить второй элемент массива b на "2", но рез-тат все равно true. Подскажите, что не так?
var
a:array[0..4] of integer;
b:array[0..4] of integer;
i:integer;
function check(a,b:array of integer;i:integer):boolean;
begin
if a[i]=b[i] then
begin
result:=true;
check(a,b,i+1);
end
else
begin
result:=false;
exit;
end;
end;
begin
for i:=0 to 4 do
a[i]:=i;
for i:=0 to 4 do
b[i]:=i;
b[1]:=2;
writeln(check(a,b,0));
for i:=0 to 4 do
writeln(a[i], ' = ' , b[i]);
readln;
end.