A nesto ovako?
Code:
while pos(' ',red)>0 do
begin
element:=copy(red,1,pos(' ',red)-1);
delete(red,1,pos(' ',red));
end;
element:=red;
Red i element su stringovi. Element izvan while ciklusa je element u poslednjoj koloni.
Za matricu se samo jos doda brojac koji se povecava za 1 svaki put, a on predstavlja kolonu u koju se upisuje element.