Дан двумерный массив размером 5 8 составьте программу которая выводит все элементы последней строки

Type arr = array[1 ... 5, 1 ... 8] of integer;

procedure PrintEndRow (a: arr) ;

var

i: integer;

begin

write ('Элементы последней строки: ') ;

for i : = 1 to 8 do

write (a[5, i], ' ') ;

writeln;

end;

var

a: arr;

begin

//тут ввод данных любым способом: из файла, вводит пользователь или случайные значения

PrintEndRow (a) ;

end.