[Thrasher]

Код:

Var 
f:TextFile;
S:String;
S1,S2:Char;
begin
AssignFile(F,'Text.txt');
reset(f);
for I:=1 to 18 do
 readln(f,S);
S1:=S[21];
S2:=S[22];
CloseFile(F);
ShowMessage('Первый символ '+S1+#13+' Второй символ '+S2);
end;