Игра "отгадай числа" - Turbo Pascal

var
  n,s,t:string;
  i,j,k,l,m:integer;
begin
  writeln('Программа загадывает 3-х значное число, Вам дается 3 попытки угадать число.');
  writeln('Допустим программа загадала 325 числа, вы вводим 765 и программа выдает:');
  writeln('Названо верное кол-во цифр: 1');
  writeln('На своем месте: 1');
  writeln('Удачи');
  randomize;
  i:=random(900)+100;
  str(i,n);
  i:=0;
  repeat
    i:=i+1;
    repeat
      writeln('Попытка ',i,' Ваше число:');readln(l);
    until (l>99) and (l<1000);
    str(l,s);
    k:=0; m:=0;t:=n;
    for j:=1 to 3 do
      if s[j]=n[j] then k:=k+1;
    for j:=3 downto 1 do
       if pos(s[j],t)>0 then begin
         m:=m+1;
         delete(t,pos(s[j],t),1);
       end;
    writeln('Названо верное кол-во цифр: ',m);
    writeln('На своем месте: ',k);
  until (k=3) or (i=3);
  if k=3 then writeln('Ура') else writeln('Прости, но я загадал ',n);
  readln;
end.