Создайте массив из 5 фамилий и выведите их на экран столбиком, начиная с последней — Pascal(Паскаль)

uses crt;
const count=5;
var mas:array[1..count] of string;
i:integer;
begin
clrscr;
writeln('vvedite familii:');
for i:=1 to count do readln(mas[i]);
clrscr;
for i:=count downto 1 do writeln(mas[i]);
readkey;
end.