Из 20 элементов найти максимальный элемент

#include <stdio.h>
#include <conio.h>
const int N=10;
clrscr;
main()
{int Max,index,i,A[N];
printf("vvedi massiv\n");
for(i=0;i<N;i++)
{printf("vvedite A[%d]=",i);
scanf("%d",&A[i]);
}
Max=A[0]; index=0;
for(i=1;i<N;i++)
{
if(A[i]>Max)
{
Max=A[i]; index=i;
}
}
printf("\n max ravno %d",Max);
printf("\n index raven %d",index);

}

Предоставлю решение на Pascal

Program Zn;
const N=21;
var m:array[1..N] of integer;
max,i:integer;
Begin
max:=-30000;
For i:=11 to N do begin
Writeln('Введите эллемент массива');
Readln(m[i]);
if max<m[i] then max:=m[i]
end;
writeln('Максимальный эллемент массива=',max);
end.

(Проверено и от компелировано на Pascal.NET)