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.