готовую программу перевести на си

[Jasminka-jasmin]

program program1;
var s,subs:string;c:char;isOneNumber:bo olean;p:byte;n,err:integer;
begin
writeln('‚Введите фразу');
readln(s);
c:=s[1];
isOneNumber:=false;
p:=pos(' ',s);
while p<>0 do
begin
if p=1 then
begin
s:=copy(s,2,length(s));
p:=pos(' ',s);
continue;
end;
subs:=copy(s,1,p-1);
s:=copy(s,p+1,length(s));
p:=pos(' ',s);
val(subs,n,err);
if err<>0 then continue;
if (n=0) or (n>9) then continue;
isOneNumber:=true;
break;
end;
if isOneNumber then writeln('‚ Есть числа, сосотоящие из одной цифры')
else writeln('‚Нет чисел, состоящих из одной цифры');
end.

[WorldMaster]

Хм. код переписал но что-то не понятно ... Опишите вашу задачу, так может станет яснее. А то очень похоже что у вас тут ошибка закралась.
Исходя из кода я понял что вам нужно найти в строке однозначные числа? Однако при p=1 у вас число просто проскакивает и продолжает вполнятся цикл. Косячок.
Пишите в аську, там пообщаемся поближе.
Но алгоритм выбран мягко говоря коряво.
Можно сделать все намного проще.