I ir II užduotus

program Slyvos;
type mas = array [1..100] of integer;
var
i, j: integer;
F : text;
A, A1, Ats1 : mas;

//--------------------------------------------
procedure skaityti;
begin
Assign (F, 'u1.txt');
reset (F);
for i := 1 to 10 do
begin
read (F, A[i]);
ats1[i] := A[i];
end;
for i := 11 to 20 do
ats1[i] := 0;

Close (F);
end;
//-------------------------------------------
procedure skaiciuoti;
begin
for i := 1 to 10 do
  A1[i] := 10 - A[i];

for i := 1 to 10 do
begin
for j := i+1 to A1[i]+i do
    Ats1[j] := Ats1[j] + 1;
end;
end;

//--------------------------------------------
procedure atsakymas;
begin
Assign (F, 'u1rez.txt');
rewrite (F);
for i := 1 to 20 do
begin
    write (F, Ats1[i], ' ');
end;
Close (F);
end;

//------------------------------------------
begin
  skaityti;
  skaiciuoti;
  atsakymas;
end.


program Bevardė1;
type
    avis = record
    vard : string [10];
    genas : string [1];
    doli : string [1];
    genk : integer;
    end;
type
    mas = array [1..100] of avis;
var
    F : text;
    i, j, kiek, ilgis, kelinta, m, kiekis : integer;
    A : mas;
//---------------------------------
function arsutapo: integer;
begin
m:= 0;
for j:= 1 to ilgis do
begin
 if (A[j].doli = A[j].genas ) then begin m := m + 1;   end;
 A[i].genk := m;
 end;

end;
//------------------------------
procedure skaityti;
begin
Assign (F, '2015.txt');
reset (F);
readln (F, kiek, ilgis);
readln (F, kelinta);
for i := 1 to kelinta do
    begin
    if (i = kelinta)then read (F, A[i].vard);
    for j := 1 to ilgis do
          read (F, A[j].doli);
        readln (F);

    end;
Close (F);
end;
//----------------------------------
procedure skaityti2;
begin
Assign (F, '2015.txt');
reset (F);
readln (F, kiek, ilgis);
readln (F, kelinta);

for i := 1 to kiek do
    begin
   if (i <> kelinta) then read (F, A[i].vard);

   for j := 1 to ilgis do
     read (F, A[j].genas);
        readln (F);
        arsutapo;
     end;
Close (F);
end;
//-----------------------------------

procedure rasyti;
begin
Assign (F, 'u2rez.txt');
rewrite (F);
writeln (F, A[kelinta].vard);
   for i:= 1 to kiek do
   begin
    if (A[kelinta].vard <> A[i].vard) and (A[i].genk <> 0)  then begin writeln (F, A[i].vard, ' ', A[i].genk); end;
   end;
close(F);
end;
//-----------------------------------
begin
skaityti;
skaityti2;
rasyti;
end.