строки в паскале

[swedalena]

Ввести фамилию, имя и отчество как одно данное строкового типа. Определить длину строки и количество букв «а» в ней.Вывести имя в столбик.
Program Pr12_53;
var a,b:string[20];
i,n:integer;
с:char;
begin
readln(a); { Ввод заданного слова. }
n:=length(a); { Определение длины слова. }
{ Запись в переменную b пустой строки для последующей операции объединения. }
b:=' ';
for i:=l to n do
{ Последовательное накапливание «перевернутой» строки }
{ при помощи операции объединения строк и функции, выделяющей}
{из исходной строки по одному элементу с конца. }
b:=b+copy(a,n-i+l,1);
writeln(b);
end.
Я делаю так но у меня не получается.Подскажите пожалуйста
как првильно

[Terran]

Ввести фамилию, имя и отчество как одно данное строкового типа. Определить длину строки и количество букв «а» в ней.Вывести имя в столбик.

Вот Вам программка, только при вводе фамилии, имени, отчества придерживайтесь формата (Фамилия Имя Отчество) и вводите всё маленькими буквами (буквами нижнего регистра).

Var
A,B: String;
I,N,C,K: Integer;
Begin
C:=0;
ReadLn(A);
N:=Length(A);
WriteLn('Dlina stroki = ',N);
B:=A;
For K:=0 To N Do
Begin
If Pos('a',B) <> 0 Then
Begin
Delete(B,1,Pos('a',B));
Inc(C);
End;
End;
WriteLn('Kolichestvo bykv "a" = ',C);
Delete(A,1,Pos(' ',A));
Delete(A,Pos(' ',A),N);
N:=Length(A);
For I:=1 To N Do
Begin
WriteLn(Copy(A,I,1));
End;
ReadLn;
End.

Если будет необходимость, можете оптимизировать код.

[swedalena]

Спасибо вам большое=)