Переделать цикл. Код внутри =)

[Silverstone]

Ребятушки, нужна помощь в следующем.
Есть программа, она работает. Ее суть заключается в следующем: проверяет положение запятых и пробелов вблиз запятых.

Я реализовал это через два цикла: второй делает основную проверку, а первый прогоняет второй относительно длинны введенной строки. Вот...

Препод сказал, что ему это не нравится...Может кто помочь переделать: вместо циклов прописать while

Program ex9;
 uses crt;

var
f,d:text; x:string;  k:byte;

procedure str(var x:string);

       var i:integer; j:string;

      begin
       for k:=1 to length(x)+1 do
       begin
       j:=' ';

        while x[1]=',' do delete(x,1,1);

        while pos(',,',x)<>0 do delete(x,pos(',,',x),1);

        while pos (' ,',x)<>0 do delete (x,pos(' ,',x),1);
       end;

     {  k:=length(x);
       while k<=length(x) do}
      for k:=1 to length(x)+1 do
        for i:=1 to length(x) do
               begin
           if (x[i]=',') and (x[i+1]<>' ') then begin insert(j,x,(i+1));
        end;
      end;

     end;

begin
clrscr;

  assign(f,'D:\text.txt'); rewrite(f);
   repeat
     writeln('ўўҐ¤ЁвҐ ⥪бв');
       readln(x);
     writeln(f,x);
   until x=' ';
  close(f);

  reset(f);

  assign(d,'D:\text1.txt'); rewrite(d);
   while not eof(f) do begin
    readln(f,x);

    if pos(',',x)<>0 then
     begin
      str(x);
     end;

  writeln(d,x);
  end;
  close(d);

  close(f);
   erase(f);
   rename(d,'D:\text.txt');
end.

З.Ы- так реально нельзя реализовывать или придирки препода?

[ByAlex]

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

Program ex9;
 uses crt;
var
   f,d:text; 
   x:string;  
   k:byte;

procedure str(var x:string);
var 
   i:integer; 
   j:string;
begin
   for k:=1 to length(x)+1 do
   begin
      j:=' ';
      while x[1]=',' do
         delete(x,1,1);
      while pos(',,',x)<>0 do 
         delete(x,pos(',,',x),1);
      while pos (' ,',x)<>0 do 
         delete (x,pos(' ,',x),1);
   end;
   k:=1;
   while k<=length(x)+1 do
   begin
      i:=1;
      while i<=length(x) do
      begin
         if (x[i]=',') and (x[i+1]<>' ') then
            insert(j,x,(i+1));
         inc(i);
      end;
      inc(k);
   end;
begin
   clrscr;
   assign(f,'D:\text.txt'); rewrite(f);
   repeat
      writeln('ўўҐ¤ЁвҐ ⥪бв');
      readln(x);
      writeln(f,x);
   until x=' ';
  close(f);
  reset(f);
  assign(d,'D:\text1.txt'); 
  rewrite(d);
  while not eof(f) do 
  begin
     readln(f,x);
     if pos(',',x)<>0 then
        str(x);
     writeln(d,x);
  end;
  close(d);
  close(f);
  erase(f);
  rename(d,'D:\text.txt');
end.

З.Ы- так реально нельзя реализовывать или придирки препода?

Проверь! Думаю так.

[Silverstone]

Up)
Все правильно, ругается на мелкоту, но она не мешает ходу программы. Спасибо!

И все-таки: мой первый вариант был допустим? Если нет, то почему?

[ByAlex]

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

Up)
Все правильно, ругается на мелкоту, но она не мешает ходу программы. Спасибо!

И все-таки: мой первый вариант был допустим? Если нет, то почему?

Был допустим, просто преподу, видать, нужно было с While! Кстати, у тебя там еще остался цикл с For, измени по аналогии, если нужно.

[Silverstone]

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

Был допустим, просто преподу, видать, нужно было с While! Кстати, у тебя там еще остался цикл с For, измени по аналогии, если нужно.

да если бы это нужно было...Препод просто говорит, что это не правильно)