Обработать текст таким образом, чтобы каждая строка начиналась с первой позиции строки и первая буква каждой строки была заменена с прописной на строчную — Pascal(Паскаль)

program PascalGuru;

var
  f: text; { описание переменных }
  s, sub: string;
  p, i: integer;

begin
  assign(f, 'text.txt');
  reset(f); { Подключаем файл для чтения }
  readln(f, s); { считываем текстовую строку с файла }

  writeln('Ishodnyi tekst: ', s); { Выводим исходный текст на экран }
  writeln;
  writeln('***Preobrazovannyi:');

  p := pos(';', s); { позиция точки запятой }
  while (p > 0) do { пока есть точка запятой }
  begin
    sub := copy(s, 1, p - 1); { копируем в строку sub текущую подстроку }
    delete(s, 1, p); { удаляем из строки текущую подстроку }
    if sub[1] = ' ' then
      delete(sub, 1, 1); { если первый = пробел - то его удаляем }
    sub[1] := UpCase(sub[1]); { делаем первую букву ЗАГЛАВНОЙ }

    writeln(sub); { выводим текущую подстроку на экран }
    p := pos(';', s); { позиция точки запятой }
  end;

  close(f); { закрываем файл }
  readln;

end.