Запрограммировать игру "Виселица".
(Паскаль)

var so,sr,c:string;t,k,i:integer;Нужно исправить.

var so,sr,c:string;t,k:integer;begin;readln(so);t:=0;for i:=1 to length(so) dosr:=sr+'*';while t<>6 dobegin;readln(c);if length(c)<>1 then begin;  writeln('Только одна буква!');  continue; end;if pos(c,so)<>0 then begin; for i:=1 to length(so) do   if so[i]=c then   begin;     delete(sr,i,1);     insert(c,sr,i);   end; writeln(sr); writeln('Осталось ',6-t,' попыток'); end else begin; writeln(sr); inc(t); writeln('Осталось ',6-t,' попыток'); end; if so=sr then break;end;if so=sr then writeln('Вы выиграли') else writeln('Вы проиграли');end.