"Текстовый файл содержит наз. лекарства и его производителя, нужно сделать добавление в конец списка"
Добавление я сделал, но вот как сделать в программе, чтобы пробелы ставились автоматически. Если лекарство состоит из 7 символов, то первые три символа из названии производителя, печатаются в названии лекарства. ЗАранее благодарю)
Uses Crt;
Var
F : Text;
Ch : Char;
Lek : String[10];
Pro : String[20];
Procedure AppendFile;
begin
Assign(F, 'data.dat');
{$I-}
Append(F);
{$I+}
If IOResult <> 0 Then
begin
WriteLn('Ошибка открытия файла');
Halt;
end
Else
begin
WriteLn;
Repeat
Write('Лекарство: ');
ReadLn(Lek);
If Lek <> '' Then
begin
Write('Производитель: ');
ReadLn(Pr);
WriteL(F, Lek);
WriteLn(F, Pr);
end;
Until Lek = '';
Close(F)
end;
Procedure ReadFile;
begin
Assign(F, 'data.dat');
{$I-}
Reset(F);
{$I+}
If IOResult <> 0 Then
begin
WriteLn('Ошибка открытия файла*');
Halt;
end
Else
begin
WriteLn;
While Not Eof(F) Do
begin
Read(F,Lek );
ReadLn(F, Pr);
WriteLn('Лекарство: ', Lek, ' Производитель*: ', Pr);
end;
Close(F);
ReadLn;
end;
end;
