{ Найти номер максимального элемента таблицы а[1..10] }

uses crt;
var a : array [1..100] of longint;
    k,i,n,max : longint;
begin
  clrscr;
  write('n=');readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']=');
	readln(a[i]);
  end;
  max:=a[1];k:=1;
  for i:=2 to n do
  if a[i]>max then
  begin
    max:=a[i];k:=i;
  end;
  write('номер: ',k);
  readln;
end.