Ввести два массива по 10 чисел. Найти в каком массиве наибольшее число
(Delphi/Pascal)

Begin
  var a := ReadArrInteger(Первый массив: ,10);
  var b := ReadArrInteger(Второй массив: ,10);
  write(Наибольшее число в);
  if a.Max gt; b.Max then write( первом)
                   else write(о втором);
  writeln( массиве.);
end.

Uses crt;constn = 10;vari,b:integer;mas : array[1..n] of integer;v:array[1..n]of integer;max_num, max_index,g,c: integer;begin writeln(введите элементы массива);for i:=1 to n do readln(mas[i]);for i := 2 to n doif mas[i] gt; max_num then beginmax_index := i;max_num := mas[i];end;writeln(введите элементы массива);for b:=1 to n do readln(v[b]);for b := 2 to n doif v[b] gt; g then beginc := b;g := v[b];end;if glt;max_num then writeln(Максимальное число в первом массиве ,max_num , находится на позиции ,max_index)else writeln (Максимальное число во втором массиве ,g, находится на позиции ,c);end.