Имеется текстовый файл(не менее 5 строк). Напечатать номер самой длинной строки. Напечатать все строки, содержащие в качестве фрагмента текст "ба".

что такое Inc(i), Inc(k)? вот такой вариант как вам:

program CW;
uses wincrt;
var F:text; i, x: integer; a:string;
begin
assign (F,'C:\Program Files\PASCAL\BIN\44.text');
reset(F);
read(F,a);
x:=length(a);
while not eof(F) do
begin
readln(F,a);
if x<length(a) then x:=length(a);
i:=pos('áà',a);
if i<>0 then writeln(a);
end;
writeln (x);
close(f);
end.

это мне решили, но не уверены.