Ввести строку. Удалить часть символьной строки, заключенной между запятыми. - Pascal ABC

var
   st : string;
   i, j, k, m, n : byte;
   
BEGIN
     repeat
           WriteLn('Введите строку: ');
           Readln(st);
           for i:=1 to Length(st) do
           begin
                if (st[i]=',') then
                begin
                   Inc(k);
                   if k =1 then n:= i else m:=i;
                end;
                if m>0 then break
           end;
           if m = 0 then WriteLn('Строка не удовлетворяет условию!');
     until m>0;
     m:= m - n;
     Delete(st, n, m);
     Writeln(st);
END.