есть задачка которую надо решить на паскале. поскольку всю свою разумную жизнь (лет этак с 9) писал на сях и на сях с плюсами то не могу портнуть приметивнейшую прогу (препод урод... не может понять что его паскаль с 1991 года никто не обновлял кроме интизиастов). кроче нужна помощ иходники на с++, на паскале и сама задача.


задача

На участке имеется n станков, на которых нужно обработать m деталей . Время обработки каждой детали на каждом станке известно. Написать программу, проверяющую, можно ли найти такую деталь, время обработки которой на любом станке было бы минимальным.

#include "iostream"

using namespace std;

void main()
{
    int Array[3][3];

    cout <<"Vvodite dannii" << endl;

    for (int i = 0; i < 3; i++)
    {
        cout << "Detal " << i+1 << ": " << endl;
        for (int x = 0; x < 3; x++)
        {
            cout << "Na stanke " << x+1 << ": ";
            cin >> Array[i][x];
        }
    }

    for (int i = 0; i < 3; i++)
    {
        cout << "Detal " << i+1 << ". ";
        for (int x = 0; x < 3; x++)
        {
            cout << "Stanok " << x+1 << ": Vremya : "  << Array[i][x] << ".|";
        }
        cout << endl;
    
    }

    static int detal = 1;
    int TempArray[3];
    for (int i = 0; i < 3; i++)
        TempArray[i] = Array[0][i];

    

    int check = 0;
    int test = 0;
    for (int i = 0; i < 3; i++)
    {
        for (int x = 0; x < 3; x++)
            if (TempArray[x] >= Array[i][x])
                check++;

        if (check == 3)
            for (int x = 0; x < 3; x++)
            {
                TempArray[x] = Array[0][x];
                detal = i + 1;
                test = 1;
            }

        check = 0;
    }

    if (test == 1)
    {
        cout << "Detal izgotavlivaemaya za minimalnoe vremya na stankah eto detal " << detal << "." << endl;
    }
    else
        cout << "Net detali kotaraya bi udovletvorala usloviu. " << endl;

    
}

program poisk;
uses crt;
var
Array_: array[1..3, 1..3] of integer;
Array_Temp: array[1..3] of integer;
i, x, detal, check, test:integer;

begin

    write ('Vvodite dannii');
    for i:=1 to 3 do
    begin
        writeln ('Detal ', i, ': ');
        for x:=1 to 3 do
        begin
            writeln ('Na stanke ', x, ': ');
            read (Array_[i, x]);
        end;
    end;
    
    for i:=1 to 3 do
    begin
        write ('Detal ' , i, '. ');
        for x:=1 to 3 do
            write ('Stanok ', i, ': Vremya : ', Array_[i, x], '.|');
    end;

    detal:=1;
    for i:=1 to 3 do
        Array_Temp[i] := Array_[1, i];
        
    check := 0;
    test := 0;
    
    for i:=1 to 3 do
    begin
        for x:=1 to 3 do
            if Array_Temp >= Array_[i, x] then
      check:=check+1;
            
        if check = 3 then
            for i:=1 to 3 do
            begin
                Array_Temp[x] = Array_[0, x];
                detal = i;
                test = 1;
            end;
        check = 0;
    end;
    
    if test = 1 then
        writeln ('Detal izgotavlivaemaya za minimalnoe vremya na stankah eto detal ', detal, '.');
    else
        writeln ('Net detali kotoraya bi udovletvorala ysloviu');
end.

ps за синтаксис плз не пинайте, он у мну ацкий, тока вот и язык мне никак не даёться.

хмн...
просьба в догонку паськальные исходники долнжы собраться в турбо паскале 7 ;]