работа с файлами

[Alex11223]

Что за if? Если вы хотите делать что-то (читать) до конца файла, то используйте цикл while not eof(f) ...

[егорыч]

этот цикл есть дальше

[егорыч]

мне надо записать : первая буква слов "а"

[егорыч]

я не знаю оператора который мне будет читать первую букву слова

[егорыч]

if ?????????????(t) =а then s1:=s1+t;

[егорыч]

спасибо за помощь, вот конечный результат
uses crt;
var f,f1: text;
s,s1: string;
procedure KILLPROBEL(var s:string);
var k: byte absolute s;
begin
while s[1]=' ' do delete(s,1,1);
while s[k]=' ' do dec(k);
while pos(' ',s)<>0 do delete (s,pos(' ',s),1);
end;
procedure alg(s: string; var s1:string);
var i,j:integer;
w:string;
begin
for i:=1 to length(s) do
if s[i]<>' ' then w:=w+s[i]
else begin if (w[1]='a') and (w[length(s)]='a') then begin
s1:=s1+w+' ';
w:='';s1:='';
end;
end;
end;
begin
clrscr;
assign(f,'input.txt');reset(f);
assign(f1,'output.txt');rewrite(f1) ;
while not eof(f) do begin
readln(f,s);
killprobel(s);
alg(s,s1);
write(f1,s1);
end;
close(f);
close(f1);
end.