Капча

uses graphabc;
var a,s:string;
    n,r,z,k:byte;
begin
setwindowsize (400,100); //размер окна
var W := WindowWidth;  //Ширина графического окна
  var H := WindowHeight; //Высота графического окна
randomize;
s:='';
writeln('Введите количество символов');
readln(r);
for z:=1 to r do
 begin
  repeat
   k:=48+random(75);
  until k in [48..57,97..122];
  s:=s+chr(k);
 end;
 writeln('Введите количество отрезков');
readln(n);
writeln('Введите символы');
    for var i := 1 to n do begin
      Setbrushstyle(bsClear);
      SetPenWidth(random(1, 10)); //толщина отрезков
      
      SetPenColor(Clrandom); //случайный цвет отрезка
      
      { Координаты первой точки: }
      var x1 := random(50,50);
      var y1 := random(50,100);
      { Координаты второй точки: }
      var x2 := random(W - 50, W - 50);
      var y2 := random(H - 50, H - 100);
      { Рисуем отрезок от точки (x1, y1) до точки (x2, y2): }
      Line(x1, y1, x2, y2) 
    end;
setwindowsize (400,100); //размер окна
SetFontSize(25); //размер шрифта
 
textout (200,60, s);
randomize;
 
 
readln (a);
if a=s then
write('верно')
else
write('неверно');
end.