Две задачи по паскалю, за $. Процедуры и текстовые файлы.

[Amid1990]

Решите пожалуйста задачи:
Описать процедуру Invert (A,N), меняющую порядок следования элементов вещественного массива А размера N на противоположный (инверсированный масива). Массив A является входным и выходным параметром. С помощью этой процедуры инвертировать массивы A,B,C размера n1,n2.n3. соответственно.

Дан текстовый файл содержащий символьные строки. Найти количество строк, начинающихся и заканчивающихся одинаковыми символами.

Мне очень нужно решение этих задач сегодня-завтра, за решение, если хотите, готов заплатить 4 $.

[GetMax]

ICQ 42 00 72 341. Обращайтесь. Готов помочь

[rubius2008]

Если еще актуально пиши ася 600-927-970

[Amid1990]

Уже не актуально...

Вылаживаю решение задач может кому пригодится
Первая задача

Program pr1;
Type
Massiv=array[1..100] of Real;
Var
A,B,C:Massiv;
N1,N2,N3:Byte;
Procedure Vvod(Var V:Massiv; KOl:Byte);
Var
i:Byte;
Begin
For i:=1 to Kol do
V[i]:=Random(100) / 10;
End;
Procedure Vivod(Var V:Massiv; Kol:Byte);
Var
i:Byte;
Begin
For i:=1 to Kol do
Write(V[i]:3:1,' ');
End;
Procedure Invert(Var V:Massiv;Kol:byte);
Var
i,k:Byte;
Buf:Real;
Begin
i:=1;
k:=Kol;
While i < Kol do
Begin
Buf:=V[i];
V[i]:=V[kol];
V[kol]:=Buf;
Inc(i);
Dec(Kol);
End;

For i:=1 to K do Write(V[i]:3:1,' ')
End;
Begin
Randomize;
Writeln('N1= ');
Readln(N1);
Writeln('N2= ');
Readln(N2);
Writeln('N3 = ');
Readln(N3);
Vvod(A,N1);
Vivod(A,N1);
Writeln;
Vvod(B,N2);
Vivod(B,N2);
Writeln;
Vvod(C,N3);
Vivod(C,N3);
Writeln;
Writeln;
Invert(A,N1);
Writeln;
Invert(B,N2);
Writeln;
Invert(C,N3);
Readln
End.

Вторая задача

Program Pr2;
Var
F:Text;
St:String;
Kol:Byte;
Begin
Assign(F,'Ishod.Txt');
Reset(F);
While Not Eof(F) do
Begin
Readln(F,St);
Write(St,' ');
If St[1] = St[Length(St)] then Inc(kol);
St:='';
End;
Writeln(Kol);
Close(F);
Readln
End.