Как в паскаль абс заполнить массив из строк строками из текстового файла? (txt)

uses crt;
var a:array[1..100] of string;
     n,i:integer;  
   f:text;  
   s:string;
begin
 clrscr;
assign(f,'input.txt');
 reset(f);
read(f,n);
readln(f,s);
for i:=1 to n do  begin   readln(f,a[i]);  
writeln(a[i]);  
end;
close(f);
readln;
end.