Помогите решить Лаб. работы на PASCAL

[natic]

Строки: 1)В заданной строке, состоящей из английских существительных, преобразовывать слова по следующим правилам: к словам, оканчивабщимся на "y" с предшествующей гласной, прибавить окончание "s".
Графика: 2) Построить изображение движущегося автомобиля.
herpes me ! help me !

[TRE]

вот вторая задача. после нажатия клавиши enter автомобиль будет двигаться взад вперед по экрану, пока не будет нажата клавиша q. на всякий случай, ctrl+break - "аварийный" выход из программы
uses graph,crt;
var xs,ys,xb,yb,xk,yk,device,mode:integer;
begin
device:=0;
initgraph(device,mode,'');
readln;
xs:=50; ys:=103;
xb:=40; yb:=115;
xk:=47; yk:=130;
repeat
repeat
if keypressed then if readkey='q' then halt;
setcolor(white);
rectangle(xs,ys,xs+20,ys+12);
rectangle(xb,yb,xb+40,yb+15);
circle(xk,yk,5);
circle(xk+26,yk,5);
delay(500);
setcolor(black);
rectangle(xs,ys,xs+20,ys+12);
rectangle(xb,yb,xb+40,yb+15);
circle(xk,yk,5);
circle(xk+26,yk,5);
inc(xs); inc(xb); inc(xk);
until xb+40>620;
repeat
if keypressed then if readkey='q' then halt;
setcolor(white);
rectangle(xs,ys,xs+20,ys+12);
rectangle(xb,yb,xb+40,yb+15);
circle(xk,yk,5);
circle(xk+26,yk,5);
delay(500);
setcolor(black);
rectangle(xs,ys,xs+20,ys+12);
rectangle(xb,yb,xb+40,yb+15);
circle(xk,yk,5);
circle(xk+26,yk,5);
inc(xs,-1); inc(xb,-1); inc(xk,-1);
until xb<20;
until false;
closegraph
end.

[natic]

O спасибо тре. Дарова :D

[TRE]

а вот и первая. тут ты задаешь 5 слов, если хочешь задать больше или меньше, редактируй раздел const (const n=твоечисло;).
и да, привет)
uses crt;
const n=5;
var a:array[1..n] of string;
i,x:integer;
s:string;
g:boolean;
begin
clrscr;
for i:=1 to n do begin
write('Vvedite slovo: '); readln(s);
a[i]:=s;
end;
for i:=1 to n do begin
s:=a[i];
x:=length(s);
case s[x-1] of
'e','u','i','o','a' :g:=true;
else g:=false;
end;
if (copy(s,x,1)='y')and(g=true) then s:=s+'s';
writeln(s);
end;
readln
end.

[natic]

спасибо треее

[darius]

спасибо трее