Файлы. Паскаль

[hewlett]

1. Дан файл целых чисел f. Определите, сколько из них отлично от последнего числа.

2. Дан текстовый файл f. Распечатайте строки, начинающиеся с заданного слова.

[danekne]

2)

repeat
readln(f,s);
if pos(t,s)=1 then writeln s;
until not EOF(f);

t- подстрока, f - файл.
Если нужны проги целиком, то это фриланс - пиши 7773112

[Grag]

Сообщение от danekne

2)

repeat
readln(f,s);
if pos(t,s)=1 then writeln s;
until not EOF(f);

А если вдруг исходный файл пустой??? Неизбежна ошибка ввода-вывода! Да и пост-условие задано неверно...
В связи с этим код

while not Eof(f) do
  begin
    readln(f,s)
    .............
    .............
  end

более безопасен...