решить задачи! Python
Нужно сегодня

Field(11,8);
ToPoint(1,3);
PenDown;
ToPoint(2,4); 
ToPoint(1,5); 
ToPoint(3,3); 
ToPoint(2,4);
ToPoint(2,5); 
ToPoint(2,3); 
ToPoint(2,4); 
ToPoint(3,5);
PenUp;
ToPoint(5,5);
PenDown; 
ToPoint(4,5); 
ToPoint(4,4); 
ToPoint(5,4); 
ToPoint(4,4); 
ToPoint(4,3); 
ToPoint(5,3);
PenUp;
ToPoint(6,5); 
PenDown;
ToPoint(6,3); 
ToPoint(6,4); 
ToPoint(7,4); 
ToPoint(7,5); 
ToPoint(7,3);
PenUp; 
ToPoint(8,3);
PenDown;
ToPoint(9,4); 
ToPoint(9,3); 
ToPoint(9,5);
ToPoint(8,5); 
ToPoint(8,4); 
ToPoint(9,4); 
PenUp;
end.
если ошибка в какой то букве говорите      

Program primer;
Var f,g:text;
    I,n,k: integer;        S,a,data: string;    Begin
Assign(f,'F.txt');
Assign(g,'G.txt');
rewrite(f);
Writeln('Кол-во книг? ');
readln(n);
for i:=1 to n do begin
writeln('Фамилия автора, название и год издания книги № ',i,' ?');
readln(s);
writeln(f,s);  // в фаил f забиваем данные
end;
close(f);
Writeln('Укажите автора для поиска ');
readln(a);
Rewrite(g);
Reset(f);
For i:=1 to 2 do begin
Readln(f,s);
if (pos(a,s)<>0) then begin  //ищем автора
data:=''; 
for k:=length(s) downto 1 do begin 
          if (s[k]=' ') then begin 
                   data:=data+copy(s,k+1,length(s));        //смотрим дату
                   break;         
         end;             
         end;        
         end;
if (strtoint(data) >= 1980) then writeln(g,s);  //сравниваем дату 
end;
close(f);
close(g);
end.
ABC Pascal