Пожалуйста, помогите!!!
Составить программу на языке Паскаль, которая запрашивает у пользователя некоторое количество трехзначных чисел и выводит на экран цифру, находящуюся в середине каждого полученного числа.
Не в коем случае не используй их: last, Const, count. Делай обыкновенным способом.

var i, x, y: integer;a: array [1..255] of integer;function sr(i: integer):string;beginsr:=inttostr(i)[2];end;beginwriteln('Vvedite kol-vo chisel');read(x);for i:=1 to x do read(a[i]);writeln();for i:=1 to x do writeln(sr(a[i]));end.