Сделать так, чтобы каждая строка текстового файла записывалась в массив по-отдельности

var f:text;
    s:array of string;
    n,i:integer;
begin
assign(f,'text.txt');
reset(f);
n:=0;
while not eof(f) do
 begin
  inc(n);
  setlength(s,n);
  readln(f,s[n-1]);
 end;
close(f);
writeln('Массив строк');
for i:=0 to n-1 do
writeln(s[i]);
end.

Program text_redactor;
label a,b;
Var
tekst: array [1..10000] of string;
l: array [1..10000] of integer;
i,k,z,maxnum,j:integer;
stroka:string;
f:text;
 
Begin
 
for i:=1 to k do l[i]:=length(tekst[i]);
maxnum:=l[1];
for i:=2 to k do
  if l[i]>maxnum then
  maxnum:=l[i];
  
for i:=1 to k do
    begin
    z:=maxnum-l[i];
    if z>0 then
    begin
    stroka:=tekst[i];
a:  j:=1;
    while j<l[i] do
      begin
      j:=j+1;
      if ((stroka[j]=' ') and (stroka[j-1]<>' ')) then
        begin
        insert(' ',stroka,j);
        z:=z-1;
        l[i]:=l[i]+1;
        end;
      if z=0 then break;
      end;  
      if z>0 then goto a;
 
    tekst[i]:=stroka;
    end;
  end;
if maxnum>70 then 
  begin 
  writeln('Самая длинная строка в тексте содержит более 70 символов');
  writeln('Нажмите Enter для завершения программы...'); goto b; 
  end;
  writeln('Отредактированный текст:');
for i:=1 to k do writeln(tekst[i]);
writeln('Нажмите Enter для завершения программы...');
b:readln
end.

var f:text;
    s:array[1..10000] of string;
    n,i:integer;
begin
assign(f,'text.txt');
reset(f);
n:=0;
while not eof(f) do
 begin
  inc(n);
  readln(f,s[n]);
 end;
close(f);