Нужна помощь Паскаль !!!

Вот вариант 1 с указанием длинны строки перед её вводом :
var F:text;
var Str:string;
var Dln,Cl,Cicl:integer;
begin
Assign(F,'D:\Text.txt'); {D:\Text.txt - путь к файлу, его имя, его тип, можно
задать свои данные (Свой путь к файлу, своё имя файла, свой тип файла) }
Rewrite(F); {Создает новый пустой файл с путём к нему, заданным выше}
for Cicl:=1 to 10 do begin
Readln(Str);
Writeln(F,Str);
Dln:=length(Str);
Writeln('Длинна строки ',Cicl,' = ',Dln);
if Dln<8 then Cl:=Cl+1;
end;
Close(F);
Writeln('Количество строк, длинной меньше 8 символов - ',Cl);
Readln();
End.

Вот вариант 2 с указанием длинны строк после их ввода:
var F:text;
var Str:string;
var Dln,Cl,Cicl:integer;
var Dlin:array [1..10] of integer;
begin
Assign(F,'D:\Text.txt'); {D:\Text.txt - путь к файлу, его имя, его тип, можно
задать свои данные (Свой путь к файлу, своё имя файла, свой тип файла) }
Rewrite(F); {Создает новый пустой файл с путём к нему, заданным выше}
for Cicl:=1 to 10 do begin
Readln(Str);
Writeln(F,Str);
Dln:=length(Str);
Dlin[Cicl]:=Dln;
if Dln<8 then Cl:=Cl+1;
end;
Close(F);
for Cicl:=1 to 10 do
Writeln('Длинна строки ',Cicl,' = ',Dlin[Cicl]);
Writeln('Количество строк, длинной меньше 8 символов - ',Cl);
Readln();
End.

Тебе нужна переменная типа Text или TextFile (смотря что поймет твой Паскаль, Text должен подойти).
Например:
var f: Text;

Первым делом, независимо от того, что мы будем делать с файлом, задаем ему имя при помощи процедуры Assign:
Assign(f, 'file.txt');

Затем:
- если надо создать новый файл, используй Rewrite(f) (англ. "переписать")
- если надо открыть существующий файл для чтения, используй Reset(f) (англ. "сбросить")
- если надо открыть файл и дописывать в него новые строчки, используй Append(f) (англ. "дополнить")

Чтобы прочесть строку из файла, нужно использовать ReadLn(f, s), где s - переменная типа string.
Это возможно только при открытии для чтения - через Reset.

Чтобы записать строку в файл, используй WriteLn(f, s).
Это возможно только при открытии для записи - через Rewrite или Append.

После работы с файлом необходимо его закрыть:
Close(f);

Смотрим!
Цель: научиться.... я умею, теперь ты давай учись!