Дан двумерный массив размером 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.

МОДЕЛЬ [model] (в том смысле, как этот термин применяется в словаре) — логическое или математическое описание компонентов и функций, отображающих существенные свойствамоделируемого объекта или процесса (обычно рассматриваемых как системы или элементы системы). М. используется как условный образ, сконструированный для упрощения их исследования. Природа моделей может быть различной (общепризнанной единой классификации моделей в настоящее время не существует): материальные или вещественные модели (напр., М. самолета в аэродинамической трубе);знаковые модели двух типов — графические (чертеж, географическая карта) и математические(формула, описывающая гравитационное взаимодействие двух тел); материально-идеальные (“деловая игра”); словесное описание объекта (явления, процесса) можно также рассматривать как его М.

Будет работать только в Pascal.ABC. Желательно вводите величины от 30-50, так как всё измеряется в пикселях.

Program Zagacha;
Uses GraphABC;
Var r, a, b: Integer;
Begin 
WriteLn('Введите значение r'); 
ReadLn(r); 
WriteLn('Введите значение a'); 
ReadLn(a); 
WriteLn('Введите значение b'); 
ReadLn(b); 
If ((r + a + b) < 30) Or ((r + a + b) > 200) Then 
Begin 
r := 50;
a := 100;
b := 100;
End; 
DrawCircle(Round(Window.Width / 2), Round(Window.Height / 2), r);
DrawRectangle(Round((Window.Width - a) / 2), Round((Window.Height - b) / 2), Round((Window.Width + a) / 2) + 1, Round((Window.Height + b) / 2) + 1);  
If (a = b) And (a * b = 4 * r * r) Then 
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность вписана') 
Else If (a = b) And (a * b = 2 * r * r) Then 
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность описана') 
Else 
TextOut(Round(Window.Width / 2 - 50), 10, 'Окружность посторонняя')
End.