Помогите решить Лаб. работы на 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]

спасибо трее