Question

In programul PASCAL :

program akis;
var i,aux,j:integer;
type elev=record
nr,v:integer;
nume,prenume:string[100];
end;
var v:array[1..100] of elev;
n,l:integer;
begin
readln(n,l);
for i:=0 to n do
begin
readln(v[i].nume,v[i].prenume);
readln(v[i].nr,v[i].v);
end;
for i:=0 to n do
for j:=1+i to n do
if v[i].nume>v[j].nume then
begin
aux:=v[j].nume;
v[j].nume:=v[i].nume;
v[i].nume:=aux;
end;
for i:=0 to n do
if round(v[i].v/v[i].nr)<=2 then
write (v[i].nume,' ',v[i].prenume);
end.

Primesc erorile urmatoare:

Compiling prog.pas
prog.pas(20,7) Error: Incompatible types: got "elev.ShortString" expected "SmallInt"
prog.pas(22,12) Error: Incompatible types: got "SmallInt" expected "elev.ShortString"
prog.pas(27,4) Fatal: There were 2 errors compiling module, stopping
Fatal: Compilation aborted

Stie cineva ce pot sa ii fac?

Answer 1

L-ai declarat pe aux integer, dar tu stochezi in el string. Declara-l de tip string