массив pascal

[neBu4kaMaXiM]

Задав строку символов(допустим максимум 60символов) ,разделённых различными пробелами вывести на экран значения массива...
пример: 123ф ыфв 2 ыы
A[1]:=123ф
A[2]:=ыфв
A[3]:=2
A[4]:=ыы

[DoDge_VipeR]

var
s,sub:string;
i,k:integer;
arr:array[1..100] of string;
begin
readln(s);
sub:='';k:=0;
for i:=1 to length(s) do
if s[i]<>' ' then sub:=sub+s[i]
else
 if sub<>'' then begin inc(k);arr[k]:=sub;sub:='';end;
if sub<>'' then begin inc(k);arr[k]:=sub;sub:='';end;
for i:=1 to k do
writeln('arr[',i,']=',arr[i]);
readln;
end.

[neBu4kaMaXiM]

Спасибо,просто я через while делала...но что то запуталась...