Программеры нужно найти ошибки в программе по типу (строки)

[Димарик1994]

Задание:
Подсчитать, сколько слов во фразе «Изучение алгоритма позволяет представить микропроцессорное устройство» начинается на одну и ту же букву. Если количество слов четное, то расположить слова из исходной фразы в порядке увеличения длины слов.

А вот что у меня вышло, но она работает как-то не так(((
program Zadanie;
uses CRT;
Var s,s1,v:string;
a: array[1..8] of string;
j,n,i,k,m,m1,p,t:integer;
Begin
CLRSCR;
s:='иучение алгоритма позволяет представить микропроцессорное устройство ';
writeln(s);
s1:=s;
n:=length(s);
i:=1;
t:=0;
Repeat k:=1;
m:=length(s);
p:=pos(' ',s);
if (p<>0) then begin v:=copy(s,k,p-1);
delete(s,k,p); {write(s);}
end
else v:=copy(s,k,m);
a[i]:=v;
i:=i+1;
t:=t+1;
until p=0; writeln; m1:=0;
for j:=1 to i do begin
writeln(a[j]);
if copy(a[j],1,1)=copy(a[j],length(a[j]),1) then m1:=m1+1; end; writeln(m1:2);
if (m1 mod 2=0) then
for i:=1 to t-1 do
for k:=i+1 to t do
if length(a[i])>length(a[k]) then
begin
s1:=a[i];
a[i]:=a[k];
a[k]:=s1;
end;
writeln('Слова в порядке увеличения их длины');
for i:=1 to t do
writeln(a[i]);
end.

[Ponkole]

1) Вы написали

сколько слов во фразе ... начинается на одну и ту же букву

а Вы в строках

for j:=1 to i do begin
writeln(a[j]);
if copy(a[j],1,1)=copy(a[j],length(a[j]),1) then m1:=m1+1; end;

ищите количество слов, заканчивающихся и начинающихся с одной и той же буквы
2) в цикле

for j:=1 to i do begin
writeln(a[j]);
if copy(a[j],1,1)=copy(a[j],length(a[j]),1) then m1:=m1+1; end;

вмечто переменной i используйте переменную t
3) присваивание

s1:=s;

лишнее, так как после него вы присваиваете еще раз (или вообще не используете переменную)
4) при выводе строк разделяйте слова пробелами

for i:=1 to t do
writeln(a[i], ' ');

[Димарик1994]

Конечно все здорово, ну я что-то чуть-чуть не понял(((

[Ester]

у меня вот задача как эта,только мне просто слова по возрастанию вывести...писала как в проге выше а в массиве слова так же как в исходной строке(

[Ponkole]

Сообщение от Димарик1994

Конечно все здорово, ну я что-то чуть-чуть не понял(((

Скажи что именно я подробно объяснил