Выделить в переменную t все символы последней строки текста - Free Pascal
Формулировка задачи:
Дан текстовый файл литерных величин. Выделить в переменную t все символы последней строки текста, идущие в ней после первого вхождения символа, значение которого хранится в переменной Х.
текст вывести из файла
помогите
Решение задачи: «Выделить в переменную t все символы последней строки текста»
textual
Листинг программы
var
f: Text;
t: String;
x: Char;
begin
Write('Введите символ: '); ReadLn(x);
Assign(f,'text.txt'); Reset(f);
while not EOF(f) do ReadLn(f,t);
Close(f);
if Pos(x,t)>0 then Delete(t,1,Pos(x,t)) else t:='';
WriteLn('''',t,'''');
end.
Объяснение кода листинга программы
- Объявлены три переменные: f, t и x.
- Пользователю предлагается ввести символ.
- Файл text.txt открывается на чтение в режиме текстового файла.
- Пока файл не пуст, считывается строка из файла и сохраняется в переменной t.
- Файл закрывается.
- Если введенный пользователем символ присутствует в строке t, то он удаляется вместе с последовавшими за ним символами (до следующего вхождения этого же символа).
- Если введенный пользователем символ отсутствует в строке t, то строка t очищается.
- На экран выводится строка в кавычках, представляющая собой значение переменной t.