[lekssp]

Код:

var fv: text;
     i, l:integer;
s:string;
begin
assign(fv, '1.txt');
reset(fv);
l:=0;
while not eof(fv) do begin inc(l); readln(fv); end;
if l>=11 then begin
for i:=1 to l-11 do readln(fv);
for i:=l-10 to l do begin readln(fv,s); memo1.lines.add(s); end;
end
else for i:=1 to l do begin readln(fv, s); memo1.lines.add(s); end;
end.

вроде так