Найти максимальный элемент в массиве, и напечатать все, что после него - Pascal

Формулировка задачи:

Я все написал на Java, а на паскале не могу.Хелп Первая программа. Найти максимальный элемент в массиве, и напечатать все, что после него.

public class Pascal2 {
 
        public static void main(String args[]) {
                
            int array[] = {1,2,6,-4,4,5,-2,-5,2,3};
            int max = 0;
            int maxIndex = 0;
            
            for (int i = 0; i < array.length; i++) {    
                    if (array[i] > max) {
                        max = array[i];
                        maxIndex = i;   
                 } 
            }
            System.out.println("max number is " + max);
            System.out.println("max index is " + maxIndex);
            for (int index = maxIndex + 1; index < array.length; index++){
                System.out.println(array[index]);
         } 
    }       
}

Вторая. Напечатать элементы, которые встречаются более одного раза.

import java.util.Arrays;
 
public class Pascal {
    
    public static void main(String[] args){
        int[] nums = {1,2,3,4,2,3,4,5};
        Arrays.sort(nums);//1,2,2,3,3,4,4,6
        for (int i = 0; i < nums.length - 1; i++) {
            if (nums[i] == nums[i+1]) {
                System.out.println(nums[i+1]);
            }
        }
    }
}

Решение задачи: «Найти максимальный элемент в массиве, и напечатать все, что после него»

textual
                            Листинг программы 
                        

                            const n=10;
      a:array[1..n] of integer=(1,2,6,-4,4,5,-2,-5,2,3);
var i,imax:integer;
begin
writeln('Исходный массив');
imax:=1;
for i:=1 to n do
 begin
  write(a[i]:4);
  if a[i]>a[imax] then imax:=i;
 end;
writeln;
writeln('Максимальный элемент=',a[imax],' его индекс=',imax);
if imax=n then write('Максимальный элемент последний')
else
 begin
  writeln('Элементы после максимального');
  for i:=imax+1 to n do
  write(a[i]:4);
 end;
end.
                        