как в паскаль абс заполнить массив из строк строками из текстового файла?(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.