Динамические структуры данных

[Yakup]

Определить, симметричен ли заданный во входном файле текст (за ним следует точка).

[Yakup]

var
f:text;

procedure readFile(f: text);
var
  str: string;
begin
  reset(f);
  while not eof(f) do
  begin
    readln(f, str);
    writeln(str);
  end;
  close(f);
end;


procedure OpredSimmetr(f:text);
var
  str: string;
  i, k: integer;
begin
  reset(f);
  while not eof(f) do
 begin
  readln(f, str);
  k := 0;
  i := 1;
  while(i <= Length(str) div 2) and (k = 0) do
  if str[i] <> str[Length(str) - i + 1] then k := 1
  else 
  inc(i);
  if k = 0  then
   begin
    writeln('Симметричная строка: ', str);
   end
  else writeln('Не симметричная строка: ', str);
 end;
 close(f);
 end;
 
 
Begin
  assign(f, 'Dinam.txt');
  readFile(f);
  writeln;
  writeln;
  OpredSimmetr(f)
End.

как записать теперь с помощью динамических структур?

[Sciv]

Создать динамический массив, загрузить туда строки и потом работать со строками в этом массиве.