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

[егорыч]

ребят помогите решить задачу, а то зачёт не поставят:
дан файл,в котором записаны строки,переписать в другой файл все слова начинающиеся на букву "а". прошу помогите пожалуйста .

[Alex11223]

Начните с определения того, чем разделены слова в строках (обычно пробелы и знаки препинания) и ищите нужные вам слова (мб придется занести их в массив строк).

Используйте поиск, там можно найти много примеров решения подобных задач. Или если хотите, чтобы кто-то "срочно решил всё за вас" огласите сумму и способы получения вознаграждения.

[егорыч]

а какого вознаграждения и как его перечислить?

[Alex11223]

Денежного) Сделаю за 150р. на вебмани или ЯД. Если интересует, то лучше в icq (слева под ником) или в ЛС пишите.

[егорыч]

слушай из всего этого у меня ничего нет я могу сейчас завести яндекс деньги но счёт пополню только завтра и задача нужна тоже завтра

[егорыч]

а ты не знаешь что такое полиндром

[Alex11223]

http://ru.wikipedia.org/wiki/Палиндром
Слова, числа и т.п. , которые одинаково читаются и слева направо, и справа налево. (404, например)
А еще я знаю, что такое гугл — google.ru )

[mss]

Егорыч, ты ей-богу как только что из яйца вылупился)
Знаешь же что пробалбесничал весь семестр и что зачет завис над тобой дамокловым мечом)
Заранее ж надо было готовиться при сём печальном факте - заводить ЯД , ВМ или просто деньжат наличных поднакопить, дабы быстро и своевременно расплатиться с тем кто спасет твой зад)

[егорыч]

ну я то думал что всё сам сделаю ,там было 5 задач 4 сделал а пятую с файлами не знаю проболел тот момент

[егорыч]

ребят вот я тут набросал только if не знаю как записать

uses crt;
var f1,f2 :text;
s,s1 :string;
procedure algoritm(s:string; var s1:string);
var t :string;
begin
t:=copy(s,1,pos(s,' ')-1);
delete(s,1,pos(s,' '));
if length(t) > a then s1:=s1+t+' ';?????????????????
end;
begin
assign (f1,'ex.txt');reset(f1);
assign (f2,'ex2.txt');rewrite(f2);
while not eof(f1) do begin
readln(f1,s);
algoritm(s,s1);
writeln(f2,s1);
end;
close(f1);
close(f2);
end.