Создать программу записи и чтения типизтрованного файла типа стринг?

[Richik123]

Сообщение от Hacker19_90

ну попробуй так
#для записи

type
  TStr = string[50];
var
  s: TStr;
  f: file of TStr;
begin
  s := '';
  Assign(f, 'output.dat');
  Rewrite (f);
  while s <> 'end' do
    Write (f, s);
  Close (f);
end.

#Для чтения

type
  TStr = string[50];
var
  s: TStr;
  f: file of TStr;
begin
  s := '';
  Assign(f, 'output.dat');
  Reset(f);
  while not(Eof(f)) do
    Read (f, s);
  Close (f);
end.

спасибо помог)