Сохранить список кафе в файле

type cName=string [40];
var  inFile,outFile: text;
S: string;
a:array [integer] of cName;
m,i,j:integer;
err:boolean;
 
begin
    err:=true;
    Writeln('Введите количество кафе для считывания: ');
    Readln(m);
    i:=-1;
    Assign(inFile, 'cafe_in.txt');
      Reset(inFile);
        while not Eof(inFile) and (i<m-1) do
          begin
            inc(i);
            Readln(inFile, S);
            a[i]:=S;
          end;
      Close(inFile);
 
  writeln('Вводите названия кафе, или пустую строку для окончания ввода');
   repeat
     while err do
     begin
        readln(S);
        err:=not err;
          for  j:=1 to length(S) do
            err:=(length(S)>40) or (S[j]='@');
        if err then writeln('Не более 40 символов и не используя "@"');
     end;
 
   if S<>'' then
        begin
            inc(i);
            a[i]:=S;
            err:=not err;
        end;
 
   until S='';
 
    Writeln('Выводим в файл cafe_out.txt');
    m:=i;
    i:=-1;
    Assign(outFile, 'cafe_out.txt');
      Rewrite(outFile);
        while i<m do
          begin
            inc(i);
            S:= a[i];
            Writeln(outFile, S);
          end;
      Close(outFile);
      readln;
end.