PascalABC str_files

program read_files;

var
  i : integer;
  str_arr : array of string;

begin
  str_arr := readAllLines('C:\Users\kloko\Desktop\text.txt');
  for i := 0 to (length(str_arr)-1) do
    writeln(str_arr[i]);
  WriteAllLines('path', str_arr);
end.