Считать в массив каждый символ из файла - Pascal ABC

Формулировка задачи:

Привет!Начал изучение паскаль.И тут была такая задача:считать в массив из файла слово,например : school и массиву присвоить значение каждого символа из слова.Например: Вход.Дан 1)School 2)Считываем School и massive[1]:=S,massive[2]:=c,massive[3]:=h,massive[4]:=o,massive[5]:=o,massive[6]:=l. Как это возможно сделать?Заранее спасибо

Решение задачи: «Считать в массив каждый символ из файла»

Листинг программы

var f:text;
     s:string;
     i:byte;
begin
assign(f,'imya_faila.txt');
reset(f);
readln(f,s);
close(f);
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then  s[i]:=LowCase(s[i])
else if s[i] in ['a'..'z'] then  s[i]:=UpCase(s[i]);
write(s)
end.

Объяснение кода листинга программы

Объявлены три переменные: f типа text, s типа string и i типа byte.
Переменная f инициализируется путем задания имени файла 'imya_faila.txt'.
Файл открывается с помощью функции reset.
В файл считывается строка с помощью функции readln.
Файл закрывается с помощью функции close.
Запускается цикл for для каждого символа в строке s.
Если символ является заглавной буквой, он преобразуется в строчную с помощью функции LowCase.
Если символ является строчной буквой, он преобразуется в заглавную с помощью функции UpCase.
Результат выводится на экран с помощью функции write.