Помогите написать программу на паскале.
Дан двумерный массив размером 5 * 5 элементы массива вводятся пользователем вручную. Составьте программу определения индексов минимального элемента этого массива. Полученный результат вывести на экран.

const  n=5;var  a: array[1..n,1..n] of integer;  i,j,im,jm: integer;begin  writeln('Массив:');  for i:=1 to n do  begin    for j:=1 to n do    begin      read(a[i,j]);    end;  end;  writeln;    im:=1; jm:=1;  for i:=1 to n do    for j:=1 to n do      if a[i,j]<a[im,jm] then      begin        im:=i;        jm:=j;      end;  writeln('Минимум = ',a[im,jm]);  writeln('Строка: ',im,'  столбец: ',jm);  readln;end.