Описать рекурсивную функцию MaxElem ошибка

[dexter2145]

Описать рекурсивную функцию MaxElem(A, N) целого типа, которая находит максимальный элемент целочисленного массива A размера N (1 ≤ N ≤ 10), не используя оператор цикла. С помощью этой функции найти максимальные элементы массивов A, B, C размера NA, NB, NC соответственно.

вот.

program rec;
uses wincrt;
type tab=array[1..10] of integer;
var A:tab;
n:integer;

function max(A:tab;n:integer):integer;
var s:integer;
begin
if n=1 then
max:=A[1]
else
begin
s:=max(a,n-1);
if s>a[n] then
max:=s
else
max:=a[n];
end;
end;

procedure saisie(var n:integer; var A:tab);
var i:integer;
begin
repeat
write('n= ');
readln(n);
until n in [1..10];
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
end;
end;

begin
saisie(n,A);
write('Max=',max(A,n));
end.



выходит ошибка модуль wincrt не найден. в чем проблема?

[ROMA2PVT]

WinCRT

=> на

CRT

[dexter2145]

Сообщение от ROMA2PVT

WinCRT

=> на

CRT

спасибо большое.