Нужна помощь Pascal

[Шаман]

Держи вторую задачу...Тут вообще все просто...

program LR3;
uses
crt;
const
a=0;
b=2*pi;
var
f1,f2,x,dx:real;
i,n:integer;
begin
clrscr;
writeln('Введите число точек n');
readln(n);
dx:=abs(b-a)/(n-1);
x:=a;
writeln('--------------------------------------');
repeat                                           
begin
f1:=sin(x)*cos(x);
f2:=sin(x)+cos(x-1);
writeln('| ','x=',x:7:3,' |' ,' F1=',f1:7:3,' |',' f2=',f2:7:3,'|');
x:=x+dx;
end
until x>b;
writeln('--------------------------------------');
readln;
end.

[Химчанин]

Народ помогите! задали по паскалю 4 задачи - 3 из них я решил но не уверен что правильно посмотрите и поправьте!! а 4 это жесть не знаю как делать - напишите прогу (для поступления в универ мне нужно)!!!

Задачи:
- переписать все слова прописными буквами
- тележка скатывается с наклонной плоскости с ускорением. После скатывания она продолжает катиться по горизонтальной поверхности
- если заданная матрица разреженная (количество нулевых элементов в разрежонной матрице составляет не менее 2/3 от общего количества) найти сумму её положительных элементов
- количество русских слов, не начинающихся с гласных напечатать их заглавными буквами


================
uses crt;
var
n,m,sr,kol,i,k,sum:integer;
mas:array[1..50,1..50] of integer;


begin
clrscr;
kol:=0;
sum:=0;
repeat
write('enter m>');
readln(m);
until (m>=2) and (m<50);
repeat
write('enter n>');
readln(n);
until (n>=2) and (n<50);
sr:=round(((n*m)/3)*2);

for i:=1 to n do
for k:=1 to m do
repeat
write('enter ',i,' x ',k,'>');
readln(mas[i,k]);
until (mas[i,k]>=0) and (mas[i,k]<32000);
clrscr;

for i:=1 to n do
begin
for k:=1 to m do
write(mas[i,k]:4);
writeln;
end;

for i:=1 to n do
for k:=1 to m do
if mas[i,k]=0 then
kol:=kol+1;

if kol>=sr then
begin
for i:=1 to n do
for k:=1 to m do
if mas[i,k]>0 then
sum:=sum+mas[i,k];
writeln('summa = ',sum);
end
else
writeln('ne razryajenaya');


readln;
end.
==================
\\\\\\\\\\\\\\\\\\\\\\\\\\
==================
uses crt;
procedure zagl(var ch:char);
var
zn:set of char;
i:integer;
begin
zn:=[' ','.',',','!','?','-','_','/','\','+','*','@','#','$','%','(',' )','[',']','{','}','~'];
if not(ch in zn) then
for i:=1 to 25 do
if ch=chr(i+96) then
ch:=chr(i+64);
end;
var
i,k,kol:integer;
str,tmp:string;
zn,gl:set of char;
sl:array[1..256] of string;
begin
clrscr;
kol:=0;
k:=1;
zn:=[' ','.',',','!','?','-','_','/','\','+','*','@','#','$','%','(',' )','[',']','{','}','~'];
gl:=['z','y','x'];
repeat
writeln('enter string>');
readln(str);
until length(str)>=3;
for i:=1 to length(str) do
begin
if str[i] in zn then
begin
k:=k+1;
end
else
sl[k]:=sl[k]+str[i];
end;

for i:=1 to k do
if not(sl[i]='') then
write(' ',sl[i],' ');


for i:=1 to k do
if (not(sl[i,1] in gl)) and (not(sl[i]='')) then
begin
kol:=kol+1;
zagl(sl[i,1]);
end;
writeln;
writeln('kol>',kol);

for i:=1 to k do
if not(sl[i]='') then
write(' ',sl[i],' ');
readln;
end.
=================
\\\\\\\\\\\\\\\\\\\\\\\\\
=================
uses crt;
procedure zagl(var ch:char);
var
zn:set of char;
i:integer;
begin
zn:=[' ','.',',','!','?','-','_','/','\','+','*','@','#','$','%','(',' )','[',']','{','}','~'];
if not(ch in zn) then
for i:=1 to 25 do
if ch=chr(i+96) then
ch:=chr(i+64);
end;
var
f,tmp:text;
ch:char;
begin
clrscr;
assign(f,'c:\f.txt');
assign(tmp,'c:\tmp.txt');
reset(f);
rewrite(tmp);
while not (eof(f)) do
begin
while not (eoln(f)) do
begin
read(f,ch);
zagl(ch);
write(tmp,ch)
end;
writeln(tmp);
readln(f);
end;
close(f);
close(tmp);
rewrite(f);
reset(tmp);
while not (eof(tmp)) do
begin
while not (eoln(tmp)) do
begin
read(tmp,ch);
write(f,ch)
end;
writeln(f);
readln(tmp);
end;
close(f);
close(tmp);
readln;
end.
===================
\\\\\\\\\\\\\\\\\\\\\\\\\\\\
===================
HELP - я хз насчет задачи с тележкой!

[SweetOpium]

Химчанин - создай тему отдельную и проси там
Шаман - можешь последнюю решить еще?))

[SweetOpium]

UP!
Решите ктонить последнюю задачу пли ! =)