Вывести на экран фамилию студента за введенным номером компьютера.

[Vladya]

Добрый вечер! Ну вот снова я со своими проблемами, я понимаю что это не однократно обсуждалось (рассматривалось) на форуме, но я все равно не могу понять ничего. Так что если кто может - помогите.

Задан массив строк, который вмещает в себе фамилии студентов которые сидят за компьютерами. Вывести на экран фамилию студента за введенным номером компьютера. Использовать ограничение диапазона ввода.


Заранее всем огромнейшее спасибо!

[JekaX]

var
A : Array[1..50,1..50] of string;
i : integer;
begin
A[1][1]:='Ivanov';
A[2][1]:='Petrov';
A[3][1]:='kozlov';
writeln('Vvedite nomer kompa ot 1-3');
Readln(i);
Writeln(A[i,1]);
Readln;
end.