задачи по паскалю

[alexrazor9]

Помогите пожалуйста решить задачи по паскалю!!

1)Составьте программу,которая определяет длину первого слова в строке.

2)Составьте программу,которая определяет,сколько раз в данной строке встречаются буквы "а" и "о" .

[Mad_Cat]

В данном слове поменять местами первый и последний символы.

var s,s2:string;
begin
readln(s);
s2:=copy(s,1,1,)+Copy(s,Length(s),1);
Delete(s,1,1);Delete(s,Length(s),1);
s:=s2+s;
Delete(s,1,1);
s:=s+s2;
Delete(s,Length(s)-1,1);
end.

[alexrazor9]

Сообщение от Mad_Cat

var s,s2:string;
begin
readln(s);
s2:=copy(s,1,1,)+Copy(s,Length(s),1);
Delete(s,1,1);Delete(s,Length(s),1);
s:=s2+s;
Delete(s,1,1);
s:=s+s2;
Delete(s,Length(s)-1,1);
end.

она что-то у меня не работает

[Zer0]

Вы хотели чтобы вывод результата напрямую в мозг был?

[sfc]

Сообщение от alexrazor9

1)Дана строка написать программу,определяющую,сколько раз в строке встречается буква "а" маленькая русская.

var
  s:string;
  i,k:integer;
begin
  readln(s);
  k:=0;
  for i:=1 to length(s) do
    if s[i]='а' then inc(k);
  write(k)
end.