Padėkit rasti klaidas (Pascal)

Sveiki. Va mano kodas:

program Noname2;
var Df,Rf:text;
n,i,s,s1,s2,s3,s4:integer;
masina, rodiklis1,rodiklis2,rodiklis3,rodiklis4:array[1..100] of integer;
begin
 Assign(Df,'duom.txt');
 Reset(Df);
 Readln(Df,n);
 for i:=1 to n do begin
 readln(Df,masina[i],rodiklis1[i],rodiklis2[i],rodiklis3[i],rodiklis4[i]);
  s:=rodiklis1[1];
  if rodiklis1[i]<s then s:=masina[i];

  s1:=rodiklis2[1];
  if rodiklis2[i]<s1 then s1:=masina[i];

  s2:=rodiklis3[1];
  if rodiklis3[i]<s2 then s2:=masina[i];

  s4:=rodiklis4[1];
  if rodiklis4[i]<s4 then s4:=masina[i];
  end;
  Close(Df);
  Assign(Rf,'rez.txt');
  Rewrite(Rf);
  Writeln(Rf,'Rodiklis1: ',s);
  writeln(Rf,'Rodiklis2: ',s1);
  writeln(Rf,'Rodiklis3: ',s2);
  writeln(Rf,'Rodiklis4: ',s4);
  Close(Rf);

end.

Duomenu failas:

3
125 15 21 45 10
155 55 3 5 6
194 12 3 5 7

man reikia, kad programa man rodytų visus mažiausius elementus masyve, o ne tik 1. Iš anksto ačiū už pagalbą.

Jeigu reikia, tai pats užduotys:

Duota n automobilių m techninių rodiklių. Reikia išrinkti geriausius automobilius pagal kiekvieną rodiklį atskirai. Automobilis geriausias pagal rodiklį, jeigu rodiklio reikšmė yra mažiausia. Gali būti ne vienas toks automobilis. Reikia sudaryti sąrašą automobilių, kurie neturi nei vieno geriausio rodiklio. Koks absoliučiai geriausias automobilis (turi daugiausiai geriausių rodiklių)?

Pradiniai duomenys surašyti faile auto.dat. Skaičius m yra pirmoje eilutėje. Toliau yra n eilučių, kurių kiekviena

saugo vieno automobilio duomenis: automobilio valstybinis numeris, o toliau m realių skaičių.

4

125 15 21 45 10

155 55 3 5 6

194 12 3 5 7

Rezultatus įrašyti į failą auto.rez-

Rodiklisl: 194

Rodiklis2: 155 194

Rodiklis3: 155 194

Rodiklis4: 155

Neturi nei vieno geriausio rodiklio: 125

Absoliučiai geriausi automobiliai, turintys po 3 rodiklius: 155 194