Informatika (2 семестр) / 3 аттестация / чтение содержимого и вывод

program fail2;
uses crt;


 var fa1:file of string;
 symbol : string ;
begin
assign(fa1,'G:\pascal\перевод.txt');
reset(fa1);
while not eof(fa1) do
 begin
  read(fa1,symbol);
  write(symbol);
 end;
close(fa1);
end.