Задача про Валентинки

var f1,f2:text;
a:array [1..11,1..7] of integer;
s,yx,letter:string;
osh,x,i,j,n:integer;
begin
assign (f1,'in.txt'); reset (f1);
assign (f2,'out.txt'); reset (f2);
readln (f1,n);
for i:=1 to 11 do
for j:=1 to 7 do
a[i,j]:=0;
 
for i:=1 to n do
  BEGIN
    readln (f1,s);
    yx:=copy (s,1,pos (' ',s)-2);
    letter:=copy (s,pos(' ',s)-1,1);
    val (yx,x,osh);
    if osh=0 then
      BEgin 
      if x=1 then begin
          if letter ='à' then a[1,1]:=a[1,1]-1;
          if letter ='á' then a[1,2]:=a[1,2]-1;
          if letter ='â' then a[1,3]:=a[1,3]-1;
          if letter ='ã' then a[1,4]:=a[1,4]-1;
          if letter ='ä' then a[1,5]:=a[1,5]-1;
          if letter ='å' then a[1,6]:=a[1,6]-1;
          if letter ='æ' then a[1,7]:=a[1,7]-1;
          end;
       if x=2 then begin
          if letter ='à' then a[2,1]:=a[2,1]-1;
          if letter ='á' then a[2,2]:=a[2,2]-1;
          if letter ='â' then a[2,3]:=a[2,3]-1;
          if letter ='ã' then a[2,4]:=a[2,4]-1;
          if letter ='ä' then a[2,5]:=a[2,5]-1;
          if letter ='å' then a[2,6]:=a[2,6]-1;
          if letter ='æ' then a[2,7]:=a[2,7]-1;
          end;
          if x=3 then begin
          if letter ='à' then a[3,1]:=a[3,1]-1;
          if letter ='á' then a[3,2]:=a[3,2]-1;
          if letter ='â' then a[3,3]:=a[3,3]-1;
          if letter ='ã' then a[3,4]:=a[3,4]-1;
          if letter ='ä' then a[3,5]:=a[3,5]-1;
          if letter ='å' then a[3,6]:=a[3,6]-1;
          if letter ='æ' then a[3,7]:=a[3,7]-1;
          end;
          if x=4 then begin
          if letter ='à' then a[4,1]:=a[4,1]-1;
          if letter ='á' then a[4,2]:=a[4,2]-1;
          if letter ='â' then a[4,3]:=a[4,3]-1;
          if letter ='ã' then a[4,4]:=a[4,4]-1;
          if letter ='ä' then a[4,5]:=a[4,5]-1;
          if letter ='å' then a[4,6]:=a[4,6]-1;
          if letter ='æ' then a[4,7]:=a[4,7]-1;
          end;
          if x=5 then begin
          if letter ='à' then a[5,1]:=a[5,1]-1;
          if letter ='á' then a[5,2]:=a[5,2]-1;
          if letter ='â' then a[5,3]:=a[5,3]-1;
          if letter ='ã' then a[5,4]:=a[5,4]-1;
          if letter ='ä' then a[5,5]:=a[5,5]-1;
          if letter ='å' then a[5,6]:=a[5,6]-1;
          if letter ='æ' then a[5,7]:=a[5,7]-1;
          end;
          if x=6 then begin
          if letter ='à' then a[6,1]:=a[6,1]-1;
          if letter ='á' then a[6,2]:=a[6,2]-1;
          if letter ='â' then a[6,3]:=a[6,3]-1;
          if letter ='ã' then a[6,4]:=a[6,4]-1;
          if letter ='ä' then a[6,5]:=a[6,5]-1;
          if letter ='å' then a[6,6]:=a[6,6]-1;
          if letter ='æ' then a[6,7]:=a[6,7]-1;
          end;
          if x=7 then begin
          if letter ='à' then a[7,1]:=a[7,1]-1;
          if letter ='á' then a[7,2]:=a[7,2]-1;
          if letter ='â' then a[7,3]:=a[7,3]-1;
          if letter ='ã' then a[7,4]:=a[7,4]-1;
          if letter ='ä' then a[7,5]:=a[7,5]-1;
          if letter ='å' then a[7,6]:=a[7,6]-1;
          if letter ='æ' then a[7,7]:=a[7,7]-1;
          end;
          if x=8 then begin
          if letter ='à' then a[8,1]:=a[8,1]-1;
          if letter ='á' then a[8,2]:=a[8,2]-1;
          if letter ='â' then a[8,3]:=a[8,3]-1;
          if letter ='ã' then a[8,4]:=a[8,4]-1;
          if letter ='ä' then a[8,5]:=a[8,5]-1;
          if letter ='å' then a[8,6]:=a[8,6]-1;
          if letter ='æ' then a[8,7]:=a[8,7]-1;
          end;
          if x=9 then begin
          if letter ='à' then a[9,1]:=a[9,1]-1;
          if letter ='á' then a[9,2]:=a[9,2]-1;
          if letter ='â' then a[9,3]:=a[9,3]-1;
          if letter ='ã' then a[9,4]:=a[9,4]-1;
          if letter ='ä' then a[9,5]:=a[9,5]-1;
          if letter ='å' then a[9,6]:=a[9,6]-1;
          if letter ='æ' then a[9,7]:=a[9,7]-1;
          end;
          if x=10 then begin
          if letter ='à' then a[10,1]:=a[10,1]-1;
          if letter ='á' then a[10,2]:=a[10,2]-1;
          if letter ='â' then a[10,3]:=a[10,3]-1;
          if letter ='ã' then a[10,4]:=a[10,4]-1;
          if letter ='ä' then a[10,5]:=a[10,5]-1;
          if letter ='å' then a[10,6]:=a[10,6]-1;
          if letter ='æ' then a[10,7]:=a[10,7]-1;
          end;
          if x=11 then begin
          if letter ='à' then a[11,1]:=a[11,1]-1;
          if letter ='á' then a[11,2]:=a[11,2]-1;
          if letter ='â' then a[11,3]:=a[11,3]-1;
          if letter ='ã' then a[11,4]:=a[11,4]-1;
          if letter ='ä' then a[11,5]:=a[11,5]-1;
          if letter ='å' then a[11,6]:=a[11,6]-1;
          if letter ='æ' then a[11,7]:=a[11,7]-1;
          end;
       END;
while pos(' ',s)<>0 do
  delete (s,1,pos(' ',s));
    yx:=copy (s,1,length(s)-1);
    letter:=copy (s,length(s),1);
    val (yx,x,osh);
    if osh=0 then
      Begin
        if x=1 then begin
          if letter ='à' then inc (a[1,1]);
          if letter ='á' then inc (a[1,2]);
          if letter ='â' then inc (a[1,3]);
          if letter ='ã' then inc (a[1,4]);
          if letter ='ä' then inc (a[1,5]);
          if letter ='å' then inc (a[1,6]);
          if letter ='æ' then inc (a[1,7]);
          end;
       if x=2 then begin
          if letter ='à' then inc (a[2,1]);
          if letter ='á' then inc (a[2,2]);
          if letter ='â' then inc (a[2,3]);
          if letter ='ã' then inc (a[2,4]);
          if letter ='ä' then inc (a[2,5]);
          if letter ='å' then inc (a[2,6]);
          if letter ='æ' then inc (a[2,7]);
          end;
          if x=3 then begin
          if letter ='à' then inc (a[3,1]);
          if letter ='á' then inc (a[3,2]);
          if letter ='â' then inc (a[3,3]);
          if letter ='ã' then inc (a[3,4]);
          if letter ='ä' then inc (a[3,5]);
          if letter ='å' then inc (a[3,6]);
          if letter ='æ' then inc (a[3,7]);
          end;
          if x=4 then begin
          if letter ='à' then inc (a[4,1]);
          if letter ='á' then inc (a[4,2]);
          if letter ='â' then inc (a[4,3]);
          if letter ='ã' then inc (a[4,4]);
          if letter ='ä' then inc (a[4,5]);
          if letter ='å' then inc (a[4,6]);
          if letter ='æ' then inc (a[4,7]);
          end;
          if x=5 then begin
          if letter ='à' then inc (a[5,1]);
          if letter ='á' then inc (a[5,2]);
          if letter ='â' then inc (a[5,3]);
          if letter ='ã' then inc (a[5,4]);
          if letter ='ä' then inc (a[5,5]);
          if letter ='å' then inc (a[5,6]);
          if letter ='æ' then inc (a[5,7]);
          end;
          if x=6 then begin
          if letter ='à' then inc (a[6,1]);
          if letter ='á' then inc (a[6,2]);
          if letter ='â' then inc (a[6,3]);
          if letter ='ã' then inc (a[6,4]);
          if letter ='ä' then inc (a[6,5]);
          if letter ='å' then inc (a[6,6]);
          if letter ='æ' then inc (a[6,7]);
          end;
          if x=7 then begin
          if letter ='à' then inc (a[7,1]);
          if letter ='á' then inc (a[7,2]);
          if letter ='â' then inc (a[7,3]);
          if letter ='ã' then inc (a[7,4]);
          if letter ='ä' then inc (a[7,5]);
          if letter ='å' then inc (a[7,6]);
          if letter ='æ' then inc (a[7,7]);
          end;
          if x=8 then begin
          if letter ='à' then inc (a[8,1]);
          if letter ='á' then inc (a[8,2]);
          if letter ='â' then inc (a[8,3]);
          if letter ='ã' then inc (a[8,4]);
          if letter ='ä' then inc (a[8,5]);
          if letter ='å' then inc (a[8,6]);
          if letter ='æ' then inc (a[8,7]);
          end;
          if x=9 then begin
          if letter ='à' then inc (a[9,1]);
          if letter ='á' then inc (a[9,2]);
          if letter ='â' then inc (a[9,3]);
          if letter ='ã' then inc (a[9,4]);
          if letter ='ä' then inc (a[9,5]);
          if letter ='å' then inc (a[9,6]);
          if letter ='æ' then inc (a[9,7]);
          end;
       if x=10 then begin
          if letter ='à' then inc (a[10,1]);
          if letter ='á' then inc (a[10,2]);
          if letter ='â' then inc (a[10,3]);
          if letter ='ã' then inc (a[10,4]);
          if letter ='ä' then inc (a[10,5]);
          if letter ='å' then inc (a[10,6]);
          if letter ='æ' then inc (a[10,7]);
          end;
         if x=11 then begin
          if letter ='à' then inc (a[11,1]);
          if letter ='á' then inc (a[11,2]);
          if letter ='â' then inc (a[11,3]);
          if letter ='ã' then inc (a[11,4]);
          if letter ='ä' then inc (a[11,5]);
          if letter ='å' then inc (a[11,6]);
          if letter ='æ' then inc (a[11,7]);
          end;
      End;
end;
for i:= 1 to 11 do
  for j:=1 to 7 do
    if a[i,j]>0 then begin
    if j=1 then write (f2,i,'A',' ');
    if j=2 then write (f2,i,'Á',' ');
    if j=3 then write (f2,i,'Â',' ');
    if j=4 then write (f2,i,'Ã',' ');
    if j=5 then write (f2,i,'Ä',' ');
    if j=6 then write (f2,i,'Å',' ');
    if j=7 then write (f2,i,'Æ',' ');
    end;
    close (f1); close (f2);
    end.

uses crt;
const cf=['0'..'9'];
      m=11;
      k=7;
var f1,f2:text;
    a:array [1..m,1..k] of integer;
    s,s1:string;
    i,j,n,x,y,c:integer;
begin
assign (f1,'in.txt'); reset (f1);
assign (f2,'out.txt'); rewrite (f2);
readln (f1,n);
for i:=1 to m do
for j:=1 to k do
a[i,j]:=0;
for i:=1 to n do
 begin
  readln (f1,s);
  s1:=''; //первый номер от 1 до 11
  j:=1;
  while s[j] in cf do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  val(s1,x,c);
  y:=ord(s[j])-223; //первая буква от а до ж
  inc(a[x,y]);
  y:=ord(s[length(s)])-223;//вторая буква(в конце строки)
  s1:=''; //второй номер
  j:=length(s)-1;
  while s[j] in cf do
   begin
    s1:=s[j]+s1;
    j:=j-1;
   end;
  val(s1,x,c);
  dec(a[x,y]);
 end;
close(f1);
for i:=1 to m do
for j:=1 to k do
if a[i,j]>0 then writeln(f2,i,chr(j+223));
close(f2);
write('Результат записан в файл out.txt')
end.