помогите с контрольной Delphi

[НиколаМГВРК]

1. Использование текстовых файлов для ввода/вывода.
Написать программу , которая считает английский текст из файла и выводит его на экран, заменив каждую первую букву слов, начинающихся с гласной буквы, на прописную.

2. Структура TRAYN содержит следующие поля:
- название пункта назначения;
- номер поезда;
- время отправления;
Выполнить следующие действия:
- вывод на экран информации о поездах, отправляющихся после введённого с клавиатуры времени;
- если таких поездов нет, выдать на дисплей соответствующее сообщение.

[SkyM@n]

Заблудилсо? Ищи здесь!

[Alar]

Переместил в раздел для студентов.

[vitalik007]

но вот первую задачу решил

var
Form1: TForm1;
small:array[0..5]of char=('a','e','i','o','y','u');
big:array[0..5]of char=('A','E','I','O','Y','U');
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i,j:integer;
p:boolean;
begin
memo1.lines.loadfromfile(имя файла);
p:=true;
for i:=0 to memo1.Lines.Count-1 do
s:=s+memo1.Lines[i];
for i:=1 to length(s) do begin
if p then begin
for j:=0 to high(small)do
if s[i]=small[j] then begin
s[i]:=big[j];
break;
end;
end;
if s[i]=' ' then p:=true;
if s[i]<>' ' then p:=false;
end;

memo1.Text:=s;
end;