Виконання

program Project2;

uses

System.SysUtils, Classes;

var s, t: string;

strlist: TStringList;

i: integer;

f: textfile;

begin

AssignFile(f, 'Text.txt');

Reset(f);

while not EoF(f) do begin

read(f, t);

s:=s+t;

end;

strlist:=TStringList.Create;

strlist.CommaText:=s;

for i:=0 to strlist.Count-2 do

if strlist[i] <> strlist[strlist.Count-1] then

writeln(strlist[i]);

readln;

end.

Рис.10.1 Програма в процесі виконання

2. Створіть типізований файл для збереження масиву записів, який був створений для завдання практичної роботи №5. Створіть власну процедуру для зчитування із типізованого файлу масиву записів, починаючи із 101-ого запису в масиві.