Работа с файлом.Паскаль

[Sanginow]

С помощью текстового редактора создать файл, содержащий текст, длина которого не превышает 1000 символов. Текст должен состоять из трех предложений (длина строки текста не должна превышать 70 символов). Имя файла должно иметь расширение DAT. Написать программу, которая: 1) выводит текст на экран дисплея; 2) по нажатию произвольной клавиши поочередно выделяет каждое предложение из текста в последовательности 2, 1, 3.

Program txt;
Uses Crt;
Var f:text;
     s:string;
BEGIN
Assign(f,'TEXT.dat');
Reset(f);
  While not Eoln(f) do
     begin
      Readln(f,s);
      Writeln(s);
     end;
Close(f);
END.

Смог написать только это.Текст выводить.А поменять предложения местами не знаю как.

[Sanginow]

Ура я сделал программу!!!Я рад.